From 7dbed4848310ea510b4433642c2c12b57ab896e0 Mon Sep 17 00:00:00 2001 From: Glenn Morris Date: Tue, 10 Feb 2009 03:39:38 +0000 Subject: [PATCH] (mail-use-rfc822): Remove * from defcustom doc. (mail-file-babyl-p): Use with-temp-buffer. --- lisp/ChangeLog | 3 +++ lisp/mail/mail-utils.el | 15 ++++++--------- 2 files changed, 9 insertions(+), 9 deletions(-) diff --git a/lisp/ChangeLog b/lisp/ChangeLog index 3e43dfb74c3..e311549257e 100644 --- a/lisp/ChangeLog +++ b/lisp/ChangeLog @@ -1,5 +1,8 @@ 2009-02-10 Glenn Morris + * 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. 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 -- 2.39.5