[Emacs-diffs] /srv/bzr/emacs/trunk r106828: * lisp/mail/unrmail.el (unrmail): Tweak previous change.

[Glenn Morris]

------------------------------------------------------------
revno: 106828
committer: Glenn Morris <address@hidden>
branch nick: trunk
timestamp: Mon 2012-01-09 21:22:13 -0500
message:
  * lisp/mail/unrmail.el (unrmail): Tweak previous change.
  (for trailing whitespace in otherwise empty BABYL files).
modified:
  lisp/ChangeLog
  lisp/mail/unrmail.el

=== modified file 'lisp/ChangeLog'
--- a/lisp/ChangeLog    2012-01-09 07:58:46 +0000
+++ b/lisp/ChangeLog    2012-01-10 02:22:13 +0000
@@ -1,3 +1,7 @@
+2012-01-10  Glenn Morris  <address@hidden>
+
+       * mail/unrmail.el (unrmail): Tweak previous change.
+
 2012-01-09  Chong Yidong  <address@hidden>
 
        * custom.el (custom-safe-themes): Use SHA-256 for hashing.

=== modified file 'lisp/mail/unrmail.el'
--- a/lisp/mail/unrmail.el      2012-01-06 08:34:47 +0000
+++ b/lisp/mail/unrmail.el      2012-01-10 02:22:13 +0000
@@ -66,11 +66,11 @@
          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