[gnus git] branch master updated: =1= mm-util.el (mm-find-buffer-file-coding-system): Don't forget to kill the temp buffer. message.el (message-mailer-swallows-blank-line): Use with-temp-buffer.

       via  04717999d979335e5dfd66ade42d283131ec5eba (commit)
      from  6d5f40566b89879bee46366b5232c65d28bec457 (commit)


- Log -----------------------------------------------------------------
commit 04717999d979335e5dfd66ade42d283131ec5eba
Author: Stefan Monnier <[email protected]>
Date:   Thu Jan 20 23:39:24 2011 +0000

    mm-util.el (mm-find-buffer-file-coding-system): Don't forget to kill the temp buffer.
    message.el (message-mailer-swallows-blank-line): Use with-temp-buffer.

diff --git a/lisp/ChangeLog b/lisp/ChangeLog
index c34c4ea..2ff2d9a 100644
--- a/lisp/ChangeLog
+++ b/lisp/ChangeLog
@@ -1,3 +1,9 @@
+2011-01-20  Stefan Monnier  <[email protected]>
+
+	* mm-util.el (mm-find-buffer-file-coding-system): Don't forget to kill
+	the temp buffer.
+	* message.el (message-mailer-swallows-blank-line): Use with-temp-buffer.
+
 2011-01-20  Julien Danjou  <[email protected]>
 
 	* mm-decode.el (mm-inline-media-tests): Add text/x-sh.
diff --git a/lisp/message.el b/lisp/message.el
index f514fd7..7f83f0a 100644
--- a/lisp/message.el
+++ b/lisp/message.el
@@ -1228,14 +1228,11 @@ called and its result is inserted."
   (if (and (string-match "sparc-sun-sunos\\(\\'\\|[^5]\\)"
 			 system-configuration)
 	   (file-readable-p "/etc/sendmail.cf")
-	   (let ((buffer (get-buffer-create " *temp*")))
-	     (unwind-protect
-		 (with-current-buffer buffer
+	   (with-temp-buffer
 		   (insert-file-contents "/etc/sendmail.cf")
 		   (goto-char (point-min))
 		   (let ((case-fold-search nil))
-		     (re-search-forward "^OR\\>" nil t)))
-	       (kill-buffer buffer))))
+               (re-search-forward "^OR\\>" nil t))))
       ;; According to RFC822, "The field-name must be composed of printable
       ;; ASCII characters (i. e., characters that have decimal values between
       ;; 33 and 126, except colon)", i. e., any chars except ctl chars,
diff --git a/lisp/mm-util.el b/lisp/mm-util.el
index 99766e6..4012a7f 100644
--- a/lisp/mm-util.el
+++ b/lisp/mm-util.el
@@ -1604,7 +1604,7 @@ gzip, bzip2, etc. are allowed."
 	(insert decomp)
 	(setq filename (file-name-sans-extension filename)))
       (goto-char (point-min))
-      (prog1
+      (unwind-protect
 	  (cond
 	   ((boundp 'set-auto-coding-function) ;; Emacs
 	    (if filename

-----------------------------------------------------------------------
Those revisions listed above that are new to this repository have
not appeared on any other notification email; so we listed those
revisions in full, above.

Summary of changes:
 lisp/ChangeLog  |    6 ++++++
 lisp/message.el |   13 +++++--------
 lisp/mm-util.el |    2 +-
 3 files changed, 12 insertions(+), 9 deletions(-)

This is an automated email from the git hooks/post-receive script. It was
generated because a ref change was pushed to the repository containing
the project "Gnus Project".

The branch, master has been updated


hooks/post-receive
-- 
Gnus Project