[Top][All Lists]
[Date Prev][Date Next][Thread Prev][Thread Next][Date Index][Thread Index]
[Emacs-commit] emacs/lisp/mh-e mh-e.el ChangeLog
From: |
Bill Wohler |
Subject: |
[Emacs-commit] emacs/lisp/mh-e mh-e.el ChangeLog |
Date: |
Tue, 10 Jan 2006 01:56:32 +0000 |
CVSROOT: /cvsroot/emacs
Module name: emacs
Branch:
Changes by: Bill Wohler <address@hidden> 06/01/10 01:56:32
Modified files:
lisp/mh-e : mh-e.el ChangeLog
Log message:
(mh-rescan-folder): Try to keep cursor at current message, even if cur
sequence is no longer present (closes SF #1207247).
CVSWeb URLs:
http://cvs.savannah.gnu.org/viewcvs/emacs/emacs/lisp/mh-e/mh-e.el.diff?tr1=1.50&tr2=1.51&r1=text&r2=text
http://cvs.savannah.gnu.org/viewcvs/emacs/emacs/lisp/mh-e/ChangeLog.diff?tr1=1.102&tr2=1.103&r1=text&r2=text
Patches:
Index: emacs/lisp/mh-e/ChangeLog
diff -u emacs/lisp/mh-e/ChangeLog:1.102 emacs/lisp/mh-e/ChangeLog:1.103
--- emacs/lisp/mh-e/ChangeLog:1.102 Mon Jan 9 21:21:06 2006
+++ emacs/lisp/mh-e/ChangeLog Tue Jan 10 01:56:32 2006
@@ -1,5 +1,9 @@
2006-01-09 Bill Wohler <address@hidden>
+ * mh-e.el (mh-rescan-folder): Try to keep cursor at current
+ message, even if cur sequence is no longer present (closes SF
+ #1207247).
+
* mh-comp.el: Use ";; Shush compiler." comment consistently per
Mark's suggestion.
(mh-letter-mode): Derive from mail-mode and delete code copied
Index: emacs/lisp/mh-e/mh-e.el
diff -u emacs/lisp/mh-e/mh-e.el:1.50 emacs/lisp/mh-e/mh-e.el:1.51
--- emacs/lisp/mh-e/mh-e.el:1.50 Mon Jan 9 19:26:27 2006
+++ emacs/lisp/mh-e/mh-e.el Tue Jan 10 01:56:32 2006
@@ -1208,8 +1208,13 @@
mh-interpret-number-as-range-flag)
nil)))
(setq mh-next-direction 'forward)
- (let ((threaded-flag (memq 'unthread mh-view-ops)))
+ (let ((threaded-flag (memq 'unthread mh-view-ops))
+ (msg-num (mh-get-msg-num nil)))
(mh-scan-folder mh-current-folder (or range "all") dont-exec-pending)
+ ;; If there isn't a cur sequence, mh-scan-folder goes to the first message.
+ ;; Try to stay where we were.
+ (if (null (car (mh-seq-to-msgs 'cur)))
+ (mh-goto-msg msg-num t t))
(cond (threaded-flag (mh-toggle-threads))
(mh-index-data (mh-index-insert-folder-headers)))))
@@ -1293,7 +1298,6 @@
(if (not (mh-outstanding-commands-p))
(mh-set-folder-modified-p nil)))
-
(defun mh-folder-line-matches-show-buffer-p ()
"Return t if the message under point in folder-mode is in the show buffer.
Return nil in any other circumstance (no message under point, no
@@ -1474,7 +1478,6 @@
(setq mh-previous-window-config config)))
nil)
-
(defun mh-update-sequences ()
"Flush MH-E's state out to MH.
@@ -2262,7 +2265,6 @@
(mh-remove-sequence-notation msg nil t))
(clrhash mh-sequence-notation-history)))
-
(defun mh-goto-cur-msg (&optional minimal-changes-flag)
"Position the cursor at the current message.
When optional argument MINIMAL-CHANGES-FLAG is non-nil, the