(mail-use-rfc822): Remove * from defcustom doc.

(mail-file-babyl-p): Use with-temp-buffer.

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  <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.
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