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

* lisp/mail/unrmail.el (unrmail): Tweak previous change.

Browse source 
(for trailing whitespace in otherwise empty BABYL files).
This commit is contained in:
Glenn Morris 2012-01-09 21:22:13 -05:00
parent a0db8d43d7
commit b09a806e0f
2 changed files with 7 additions and 3 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

4
lisp/ChangeLog
View file

@ -1,3 +1,7 @@
2012-01-10 Glenn Morris <rgm@gnu.org>
* mail/unrmail.el (unrmail): Tweak previous change.
2012-01-09 Chong Yidong <cyd@gnu.org>
* custom.el (custom-safe-themes): Use SHA-256 for hashing.

6
lisp/mail/unrmail.el
View file

@ -66,11 +66,11 @@ For example, invoke `emacs -batch -f batch-unrmail RMAIL'."
from to)
(goto-char (point-min))
(search-forward "\n\^_" nil t) ; Skip BABYL header.
(if (= (setq from (point)) (point-max))
(error "The input file contains no messages"))
(setq from (point))
(goto-char (point-max))
(search-backward "\n\^_" from 'mv)
(setq to (point))
(if (= from (setq to (point)))
(error "The input file contains no messages"))
(unless (and coding-system
(coding-system-p coding-system))
(setq coding-system