[Emacs-diffs] emacs/lisp ChangeLog mail/mail-utils.el

[Glenn Morris]

CVSROOT:        /sources/emacs
Module name:    emacs
Changes by:     Glenn Morris <gm>       09/02/10 03:39:42

Modified files:
        lisp           : ChangeLog 
        lisp/mail      : mail-utils.el 

Log message:
        (mail-use-rfc822): Remove * from defcustom doc.
        (mail-file-babyl-p): Use with-temp-buffer.

CVSWeb URLs:
http://cvs.savannah.gnu.org/viewcvs/emacs/lisp/ChangeLog?cvsroot=emacs&r1=1.15288&r2=1.15289
http://cvs.savannah.gnu.org/viewcvs/emacs/lisp/mail/mail-utils.el?cvsroot=emacs&r1=1.70&r2=1.71

Patches:
Index: ChangeLog
===================================================================
RCS file: /sources/emacs/emacs/lisp/ChangeLog,v
retrieving revision 1.15288
retrieving revision 1.15289
diff -u -b -r1.15288 -r1.15289
--- ChangeLog   10 Feb 2009 03:36:00 -0000      1.15288
+++ ChangeLog   10 Feb 2009 03:39:38 -0000      1.15289
@@ -1,5 +1,8 @@
 2009-02-10  Glenn Morris  <address@hidden>
 
+       * 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.

Index: mail/mail-utils.el
===================================================================
RCS file: /sources/emacs/emacs/lisp/mail/mail-utils.el,v
retrieving revision 1.70
retrieving revision 1.71
diff -u -b -r1.70 -r1.71
--- mail/mail-utils.el  4 Feb 2009 03:41:09 -0000       1.70
+++ mail/mail-utils.el  10 Feb 2009 03:39:41 -0000      1.71
@@ -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)
+  "Return non-nil if FILE is a Babyl file."
+  (with-temp-buffer
          (insert-file-contents file nil 0 100)
-         (looking-at "BABYL OPTIONS:"))
-      (kill-buffer buf))))
+    (looking-at "BABYL OPTIONS:")))
 
 (defun mail-string-delete (string start end)
   "Returns a string containing all of STRING except the part