Lines Matching +defs:file +defs:regexp
11 ;; This file is part of GNU Emacs.
24 ;; along with GNU Emacs; see the file COPYING. If not, write to the
99 (defvar mh-pick-regexp-chars ".*$["
104 "Quote `mh-pick-regexp-chars' in PICK-EXPR.
110 (loop for i from 0 to (1- (length mh-pick-regexp-chars)) do
111 (let ((s (string ?\\ (aref mh-pick-regexp-chars i))))
112 (setq string (mh-replace-regexp-in-string s s string t t))))
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)))))
356 (cond ((looking-at (mh-scan-msg-number-regexp))
527 (setq folder (mh-replace-regexp-in-string "^\+" "" folder))
528 (setq folder (mh-replace-regexp-in-string "/+$" "" 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))))))))
744 (defvar completion-root-regexp) ; XEmacs
745 (defvar minibuffer-completing-file-name) ; XEmacs
752 (let ((completion-root-regexp "^[+/]")
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)))))
922 (while (re-search-forward mh-letter-header-field-regexp nil t)
957 (re-search-backward mh-letter-header-field-regexp nil t)))
1016 (re-search-forward mh-signature-separator-regexp nil t)))