changeset 57838:f9b877e1c390

Revision: miles@gnu.org--gnu-2004/emacs--cvs-trunk--0--patch-658 Merge from gnus--rel--5.10 Patches applied: * miles@gnu.org--gnu-2004/gnus--rel--5.10--patch-64 Update from CVS 2004-10-29 Katsumi Yamaoka <yamaoka@jpl.org> * lisp/gnus/gnus-msg.el (gnus-configure-posting-styles): Work with empty signature file. Suggested by Manoj Srivastava <srivasta@golden-gryphon.com>.
author Miles Bader <miles@gnu.org>
date Mon, 01 Nov 2004 10:41:03 +0000
parents d2354c6afd6d
children 75b388c4e9e1
files lisp/gnus/ChangeLog lisp/gnus/gnus-msg.el
diffstat 2 files changed, 7 insertions(+), 2 deletions(-) [+]
line wrap: on
line diff
--- a/lisp/gnus/ChangeLog	Mon Nov 01 08:52:47 2004 +0000
+++ b/lisp/gnus/ChangeLog	Mon Nov 01 10:41:03 2004 +0000
@@ -1,5 +1,9 @@
 2004-10-29  Katsumi Yamaoka  <yamaoka@jpl.org>
 
+	* gnus-msg.el (gnus-configure-posting-styles): Work with empty
+	signature file.  Suggested by Manoj Srivastava
+	<srivasta@golden-gryphon.com>.
+
 	* mm-util.el (mm-coding-system-priorities): Prefer iso-8859-1 than
 	iso-2022-jp even in the Japanese language environment.  Suggested
 	by Jason Rumney <jasonr@gnu.org>.
--- a/lisp/gnus/gnus-msg.el	Mon Nov 01 08:52:47 2004 +0000
+++ b/lisp/gnus/gnus-msg.el	Mon Nov 01 10:41:03 2004 +0000
@@ -1871,8 +1871,9 @@
 	      (setq v (with-temp-buffer
 			(insert-file-contents v)
 			(goto-char (point-max))
-			(while (bolp)
-			  (delete-char -1))
+			(skip-chars-backward "\n")
+			(delete-region (+ (point) (if (bolp) 0 1))
+				       (point-max))
 			(buffer-string))))
 	    (setq results (delq (assoc element results) results))
 	    (push (cons element v) results))))