mh-util.ml

早期freebsd实现

; These utility functions return message number, file name, or path
; information. They are explicitly loaded from the root.
(defun     
    (&mh-get-msgnum
	(save-excursion
	    (temp-use-buffer (concat "+" mh-folder))
	    (beginning-of-line)
	    (while (= (following-char) ' ') (forward-character))
	    (set-mark)
	    (beginning-of-line)
	    (goto-character (+ (dot) 3))
	    (region-to-string)
	)
    )
    
    (&mh-get-fname
	(save-excursion 
	    (temp-use-buffer (concat "+" mh-folder))
	    (concat mh-buffer-filename "/" (&mh-get-msgnum))
	)
    )

    (find-path			; Look in ~/.mh_profile to find inbox path
	(save-window-excursion 
	    (temp-use-buffer "mhprofile")
	    (setq backup-before-writing 0)
	    (erase-buffer)
	    (if (= 0 (file-exists (concat (getenv "HOME") "/.mh_profile")))
		(progn
		      (pop-to-buffer "sorry") (delete-other-windows)
		      (insert-string "\n\nI can't find your .mh_profile file.\n"
				 "That means I can't continue. Sorry.\n"
				 "If you don't know what this means, then"
				 " you should run the program\n"
				 "'install-mh' now, to build that file.\n")
		      (sit-for 0)
		      (setq stack-trace-on-error 0)
		      (exit-emacs)
		))
	    (read-file (concat (getenv "HOME") "/.mh_profile"))
	    (setq mh-path "Mail")
	    (error-occured 
		(search-forward "Path:")
		(while (looking-at "[\t ]") (forward-character))
		(set-mark) (end-of-line)
		(setq mh-path (region-to-string))
	    )
	    (if (!= (string-to-char (substr mh-path 1 1)) '/')
		(setq mh-path (concat (getenv "HOME") "/" mh-path)))
	    
	    (beginning-of-file)
	    (error-occured 
		(search-forward "current-folder:")
		(while (looking-at "[\t ]") (forward-character))
		(set-mark) (end-of-line)
		(setq mh-folder (region-to-string))
	    )
	    (if (error-occured (search-forward "\nmhe:"))
		(progn
		      (end-of-file)
		      (insert-string "mhe: audit\n"); UCI
;UCI		      (insert-string "mhe: audit")
		      (write-current-file)
		)
	    )
	    (delete-buffer "mhprofile")
	)
    )
)