(rmail-summary-update-line): Replace duplicate line-beginning-position calls.

2 files changed, 8 insertions, 1 deletions

diff --git a/lisp/ChangeLog b/lisp/ChangeLog
index c009ca435a5..d306ee58404 100644
--- a/lisp/ChangeLog
+++ b/lisp/ChangeLog
@@ -1,3 +1,10 @@
+2009-01-30  Glenn Morris  <rgm@gnu.org>
+
+        * mail/rmail.el (rmail-reply): Handle empty folders.
+
+        * mail/rmailsum.el (rmail-summary-update-line): Replace duplicate
+        line-beginning-position calls.
+
 2009-01-30  Toby Speight  <streapadair@gmx.net>  (tiny change)
 
         * generic-x.el (hosts-generic-mode, named-database-generic-mode):
diff --git a/lisp/mail/rmailsum.el b/lisp/mail/rmailsum.el
index d7b1aa2c28e..8da18a055c8 100644
--- a/lisp/mail/rmailsum.el
+++ b/lisp/mail/rmailsum.el
@@ -754,7 +754,7 @@ a negative argument means to delete and move forward."
       (while (and (setq ov (car overlays))
                   (not (setq high (overlay-get ov 'rmail-summary))))
         (setq overlays (cdr overlays)))
-      (delete-region (line-beginning-position) (line-beginning-position 2))
+      (delete-region start end)
       (princ
        (with-current-buffer rmail-buffer
          (aset rmail-summary-vector (1- n) (rmail-create-summary-line n)))