Commit b09a806e authored by Glenn Morris's avatar Glenn Morris
Browse files

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

(for trailing whitespace in otherwise empty BABYL files).
parent a0db8d43
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.
......
......@@ -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
......
Markdown is supported
0% or .
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment