lisp/mh-e/mh-utils.el

8 ;; Keywords: mail
11 ;; This file is part of GNU Emacs.
24 ;; along with GNU Emacs; see the file COPYING.  If not, write to the
62           (mh-mail-abbrev-make-syntax-table)
63           (set-syntax-table mail-abbrev-syntax-table)
149                                                  :file "mh-logo.xpm"))))))
187              (not (file-readable-p (getenv "MH"))))
188         (error "MH environment variable contains unreadable file %s"
193       (if (not (file-readable-p profile))
200           (file-name-as-directory
201            (expand-file-name mh-user-path (expand-file-name "~"))))
202     (mh-set-x-image-cache-directory (expand-file-name ".mhe-x-image-cache"
209           (if (not (file-exists-p (mh-expand-file-name mh-draft-folder)))
212                (mh-expand-file-name mh-draft-folder)))))
574 directories that aren't usually mail folders are hidden.
577   (let ((arg-list `(,(expand-file-name "folders" mh-progs)
583                            (call-process (expand-file-name "folder" mh-progs)
664 (defun mh-expand-file-name (filename &optional default)
665   "Expand FILENAME like `expand-file-name', but also handle MH folder names.
667 See `expand-file-name' for description of DEFAULT."
669       (expand-file-name (substring filename 1) mh-user-path)
670     (expand-file-name filename default)))
739              (cond (mh-allow-root-folder-flag (file-exists-p path))
741                    (t (file-exists-p path))))))))
745 (defvar minibuffer-completing-file-name) ; XEmacs
801     (let ((new-file-flag
802            (not (file-exists-p (mh-expand-file-name folder-name)))))
803       (cond ((and new-file-flag
814             (new-file-flag
816             ((not (file-directory-p (mh-expand-file-name folder-name)))
818                     (mh-expand-file-name folder-name)))))
833   (< (point) (mh-mail-header-end)))
847   "Find and return the body of FIELD in the mail header.
877 (defun mh-mail-header-end ()
878   "Substitute for `mail-header-end' that doesn't widen the buffer.
885     ;; mail headers that MH-E has to read contains lines of the form:
888     ;; header. The replacement allows From_ lines in the mail header.
921       (narrow-to-region (point) (mh-mail-header-end))
1012 (defun mh-signature-separator-p ()
1016     (re-search-forward mh-signature-separator-regexp nil t)))