From 2a95505b3e67a4080a93b3371eee6d5dfbc89048 Mon Sep 17 00:00:00 2001 From: Miles Bader Date: Mon, 1 Nov 2004 10:41:03 +0000 Subject: [PATCH] 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 * lisp/gnus/gnus-msg.el (gnus-configure-posting-styles): Work with empty signature file. Suggested by Manoj Srivastava . --- lisp/gnus/ChangeLog | 4 ++++ lisp/gnus/gnus-msg.el | 5 +++-- 2 files changed, 7 insertions(+), 2 deletions(-) diff --git a/lisp/gnus/ChangeLog b/lisp/gnus/ChangeLog index 2c658a4c562..0484057a4fb 100644 --- a/lisp/gnus/ChangeLog +++ b/lisp/gnus/ChangeLog @@ -1,5 +1,9 @@ 2004-10-29 Katsumi Yamaoka + * gnus-msg.el (gnus-configure-posting-styles): Work with empty + signature file. Suggested by Manoj Srivastava + . + * 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 . diff --git a/lisp/gnus/gnus-msg.el b/lisp/gnus/gnus-msg.el index 7dcef4b813b..886aa80368f 100644 --- a/lisp/gnus/gnus-msg.el +++ b/lisp/gnus/gnus-msg.el @@ -1871,8 +1871,9 @@ this is a reply." (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)))) -- 2.39.5