Mercurial > emacs
changeset 101919:fbf831e1e7b0
(mail-use-rfc822): Remove * from defcustom doc.
(mail-file-babyl-p): Use with-temp-buffer.
| author | Glenn Morris <rgm@gnu.org> |
|---|---|
| date | Tue, 10 Feb 2009 03:39:38 +0000 |
| parents | 97184480e9dc |
| children | 7e12da77ac12 |
| files | lisp/ChangeLog lisp/mail/mail-utils.el |
| diffstat | 2 files changed, 9 insertions(+), 9 deletions(-) [+] |
line wrap: on
line diff
--- a/lisp/ChangeLog Tue Feb 10 03:36:00 2009 +0000 +++ b/lisp/ChangeLog Tue Feb 10 03:39:38 2009 +0000 @@ -1,5 +1,8 @@ 2009-02-10 Glenn Morris <rgm@gnu.org> + * mail/mail-utils.el (mail-use-rfc822): Remove * from defcustom doc. + (mail-file-babyl-p): Use with-temp-buffer. + * mail/rmailsort.el: Just require rmail. * mail/rmailedit.el: Just require rmail.
--- a/lisp/mail/mail-utils.el Tue Feb 10 03:36:00 2009 +0000 +++ b/lisp/mail/mail-utils.el Tue Feb 10 03:39:38 2009 +0000 @@ -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 @@ ;; 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