Lines Matching +defs:signature +defs:file
11 ;; This file is part of GNU Emacs.
24 ;; along with GNU Emacs; see the file COPYING. If not, write to the
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)))))
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)))))
1012 (defun mh-signature-separator-p ()
1016 (re-search-forward mh-signature-separator-regexp nil t)))