[Top][All Lists]
[Date Prev][Date Next][Thread Prev][Thread Next][Date Index][Thread Index]
[Emacs-diffs] /srv/bzr/emacs/trunk r106487: * lisp/mail/unrmail.el (unrm
From: |
Glenn Morris |
Subject: |
[Emacs-diffs] /srv/bzr/emacs/trunk r106487: * lisp/mail/unrmail.el (unrmail): Always add blank line. (tiny change) |
Date: |
Tue, 22 Nov 2011 23:49:53 -0800 |
User-agent: |
Bazaar (2.3.1) |
------------------------------------------------------------
revno: 106487
fixes bug(s): http://debbugs.gnu.org/7743
author: Mark Lillibridge <address@hidden>
committer: Glenn Morris <address@hidden>
branch nick: trunk
timestamp: Tue 2011-11-22 23:49:53 -0800
message:
* lisp/mail/unrmail.el (unrmail): Always add blank line. (tiny change)
modified:
lisp/ChangeLog
lisp/mail/unrmail.el
=== modified file 'lisp/ChangeLog'
--- a/lisp/ChangeLog 2011-11-23 07:41:17 +0000
+++ b/lisp/ChangeLog 2011-11-23 07:49:53 +0000
@@ -1,3 +1,7 @@
+2011-11-23 Mark Lillibridge <address@hidden> (tiny change)
+
+ * mail/unrmail.el (unrmail): Always add blank line. (Bug#7743)
+
2011-11-23 Glenn Morris <address@hidden>
* mail/rmail.el (rmail-forward):
=== modified file 'lisp/mail/unrmail.el'
--- a/lisp/mail/unrmail.el 2011-01-25 04:08:28 +0000
+++ b/lisp/mail/unrmail.el 2011-11-23 07:49:53 +0000
@@ -231,10 +231,9 @@
(while (search-forward "\nFrom " nil t)
(forward-char -5)
(insert ?>)))
- ;; Make sure the message ends with two newlines
(goto-char (point-max))
- (unless (looking-back "\n\n")
- (insert "\n"))
+ ;; Add terminator blank line to message.
+ (insert "\n")
;; Write it to the output file, suitably encoded.
(let ((coding-system-for-write coding))
(write-region (point-min) (point-max) to-file t
[Prev in Thread] |
Current Thread |
[Next in Thread] |
- [Emacs-diffs] /srv/bzr/emacs/trunk r106487: * lisp/mail/unrmail.el (unrmail): Always add blank line. (tiny change),
Glenn Morris <=