procyberian/emacs
1
0
Fork 0
Code Issues Pull requests Projects Releases Packages Wiki Activity Actions

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

Browse source 
(mail-file-babyl-p): Use with-temp-buffer.
This commit is contained in:
Glenn Morris 2009-02-10 03:39:38 +00:00
parent efb656fd19
commit 7dbed48483
2 changed files with 9 additions and 9 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

3
lisp/ChangeLog
View file

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

15
lisp/mail/mail-utils.el
View file

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