116 |
|
|
117 |
(defcustom mhl-formfile nil |
(defcustom mhl-formfile nil |
118 |
"*Name of format file to be used by mhl to show and print messages. |
"*Name of format file to be used by mhl to show and print messages. |
119 |
A value of T means use the default format file. |
A value of t means use the default format file. |
120 |
Nil means don't use mhl to format messages when showing; mhl is still used, |
nil means don't use mhl to format messages when showing; mhl is still used, |
121 |
with the default format file, to format messages when printing them. |
with the default format file, to format messages when printing them. |
122 |
The format used should specify a non-zero value for overflowoffset so |
The format used should specify a non-zero value for overflowoffset so |
123 |
the message continues to conform to RFC 822 and mh-e can parse the headers." |
the message continues to conform to RFC 822 and mh-e can parse the headers." |
133 |
save-excursion, with point at the start of the message. It should |
save-excursion, with point at the start of the message. It should |
134 |
return the folder to offer as the refile or Fcc folder, as a string |
return the folder to offer as the refile or Fcc folder, as a string |
135 |
with a leading `+' sign. It can also return an empty string to use no |
with a leading `+' sign. It can also return an empty string to use no |
136 |
default, or NIL to calculate the default the usual way. |
default, or nil to calculate the default the usual way. |
137 |
NOTE: This variable is not an ordinary hook; |
NOTE: This variable is not an ordinary hook; |
138 |
It may not be a list of functions.") |
It may not be a list of functions.") |
139 |
|
|
162 |
;; Cached value of the `Path:' component in the user's MH profile. |
;; Cached value of the `Path:' component in the user's MH profile. |
163 |
(defvar mh-user-path nil) ;User's mail folder directory. |
(defvar mh-user-path nil) ;User's mail folder directory. |
164 |
|
|
165 |
;; An mh-draft-folder of NIL means do not use a draft folder. |
;; An mh-draft-folder of nil means do not use a draft folder. |
166 |
;; Cached value of the `Draft-Folder:' component in the user's MH profile. |
;; Cached value of the `Draft-Folder:' component in the user's MH profile. |
167 |
(defvar mh-draft-folder nil) ;Name of folder containing draft messages. |
(defvar mh-draft-folder nil) ;Name of folder containing draft messages. |
168 |
|
|
529 |
|
|
530 |
(defun mh-get-profile-field (field) |
(defun mh-get-profile-field (field) |
531 |
;; Find and return the value of FIELD in the current buffer. |
;; Find and return the value of FIELD in the current buffer. |
532 |
;; Returns NIL if the field is not in the buffer. |
;; Returns nil if the field is not in the buffer. |
533 |
(let ((case-fold-search t)) |
(let ((case-fold-search t)) |
534 |
(goto-char (point-min)) |
(goto-char (point-min)) |
535 |
(cond ((not (re-search-forward (format "^%s" field) nil t)) nil) |
(cond ((not (re-search-forward (format "^%s" field) nil t)) nil) |
848 |
|
|
849 |
|
|
850 |
(defun mh-folder-name-p (name) |
(defun mh-folder-name-p (name) |
851 |
;; Return non-NIL if NAME is possibly the name of a folder. |
;; Return non-nil if NAME is possibly the name of a folder. |
852 |
;; A name (a string or symbol) can be a folder name if it begins with "+". |
;; A name (a string or symbol) can be a folder name if it begins with "+". |
853 |
(if (symbolp name) |
(if (symbolp name) |
854 |
(eq (aref (symbol-name name) 0) ?+) |
(eq (aref (symbol-name name) 0) ?+) |