diff options
author | Glenn Morris <rgm@gnu.org> | 2009-02-10 03:39:38 +0000 |
---|---|---|
committer | Glenn Morris <rgm@gnu.org> | 2009-02-10 03:39:38 +0000 |
commit | 7dbed4848310ea510b4433642c2c12b57ab896e0 (patch) | |
tree | c383055b0b6c5648cf12d64dbbb22f0b601c7255 /lisp/mail/mail-utils.el | |
parent | efb656fd19a9284ecd3aa264d0ab76ee92abeb48 (diff) | |
download | emacs-7dbed4848310ea510b4433642c2c12b57ab896e0.tar.gz |
(mail-use-rfc822): Remove * from defcustom doc.
(mail-file-babyl-p): Use with-temp-buffer.
Diffstat (limited to 'lisp/mail/mail-utils.el')
-rw-r--r-- | lisp/mail/mail-utils.el | 15 |
1 files changed, 6 insertions, 9 deletions
diff --git a/lisp/mail/mail-utils.el b/lisp/mail/mail-utils.el index 2311efc37ee..9c607cb4f4c 100644 --- a/lisp/mail/mail-utils.el +++ b/lisp/mail/mail-utils.el @@ -33,8 +33,8 @@ (require 'lisp-mode) ;;;###autoload -(defcustom mail-use-rfc822 nil "\ -*If non-nil, use a full, hairy RFC822 parser on mail addresses. +(defcustom mail-use-rfc822 nil + "If non-nil, use a full, hairy RFC822 parser on mail addresses. Otherwise, (the default) use a smaller, somewhat faster, and often correct parser." :type 'boolean @@ -43,13 +43,10 @@ often correct parser." ;; Returns t if file FILE is an Rmail file. ;;;###autoload (defun mail-file-babyl-p (file) - (let ((buf (generate-new-buffer " *rmail-file-p*"))) - (unwind-protect - (save-excursion - (set-buffer buf) - (insert-file-contents file nil 0 100) - (looking-at "BABYL OPTIONS:")) - (kill-buffer buf)))) + "Return non-nil if FILE is a Babyl file." + (with-temp-buffer + (insert-file-contents file nil 0 100) + (looking-at "BABYL OPTIONS:"))) (defun mail-string-delete (string start end) "Returns a string containing all of STRING except the part |