/[emacs]/emacs/lisp/mh-e/mh-seq.el
ViewVC logotype

Diff of /emacs/lisp/mh-e/mh-seq.el

Parent Directory Parent Directory | Revision Log Revision Log | View Patch Patch

revision 1.10 by lute, Mon Jul 4 17:15:52 2005 UTC revision 1.11 by wohler, Fri Oct 14 16:05:37 2005 UTC
# Line 224  appears." Line 224  appears."
224  ;; Avoid compiler warning  ;; Avoid compiler warning
225  (defvar tool-bar-map)  (defvar tool-bar-map)
226    
227    (make-variable-buffer-local 'mh-non-seq-mode-line-annotation)
228    
229  ;;;###mh-autoload  ;;;###mh-autoload
230  (defun mh-narrow-to-seq (sequence)  (defun mh-narrow-to-seq (sequence)
231    "Restrict display of this folder to just messages in SEQUENCE.    "Restrict display of this folder to just messages in SEQUENCE.
# Line 243  Use \\<mh-folder-mode-map>\\[mh-widen] t Line 245  Use \\<mh-folder-mode-map>\\[mh-widen] t
245               (mh-notate-deleted-and-refiled)               (mh-notate-deleted-and-refiled)
246               (mh-notate-cur)               (mh-notate-cur)
247               (when msg-at-cursor (mh-goto-msg msg-at-cursor t t))               (when msg-at-cursor (mh-goto-msg msg-at-cursor t t))
              (make-variable-buffer-local 'mh-non-seq-mode-line-annotation)  
248               (setq mh-non-seq-mode-line-annotation mh-mode-line-annotation)               (setq mh-non-seq-mode-line-annotation mh-mode-line-annotation)
249               (setq mh-mode-line-annotation (symbol-name sequence))               (setq mh-mode-line-annotation (symbol-name sequence))
250               (mh-make-folder-mode-line)               (mh-make-folder-mode-line)

Legend:
Removed from v.1.10  
changed lines
  Added in v.1.11

savannah-hackers-public@gnu.org
ViewVC Help
Powered by ViewVC 1.1.26