diff options
| author | Glenn Morris <rgm@gnu.org> | 2012-01-09 21:22:13 -0500 |
|---|---|---|
| committer | Glenn Morris <rgm@gnu.org> | 2012-01-09 21:22:13 -0500 |
| commit | b09a806e0f072bcd5b385fd0be544b5afe5ad3ac (patch) | |
| tree | 0170ec1c43eb018fd363163823bd4669643e0360 /lisp/mail/unrmail.el | |
| parent | a0db8d43d73d107fd786f01eb70547e16b62fb8f (diff) | |
| download | emacs-b09a806e0f072bcd5b385fd0be544b5afe5ad3ac.tar.gz | |
* lisp/mail/unrmail.el (unrmail): Tweak previous change.
(for trailing whitespace in otherwise empty BABYL files).
Diffstat (limited to 'lisp/mail/unrmail.el')
| -rw-r--r-- | lisp/mail/unrmail.el | 6 |
1 files changed, 3 insertions, 3 deletions
diff --git a/lisp/mail/unrmail.el b/lisp/mail/unrmail.el index 929f97746b0..af16bbf8c73 100644 --- a/lisp/mail/unrmail.el +++ b/lisp/mail/unrmail.el @@ -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 |