Mercurial > emacs
comparison lisp/mh-e/mh-seq.el @ 90384:c156f6a9e7b5
Revision: emacs@sv.gnu.org/emacs--unicode--0--patch-56
Merge from emacs--devo--0
Patches applied:
* emacs--devo--0 (patch 204-225)
- Update from CVS
- Sync from erc--emacs--0
- Merge from gnus--rel--5.10
- Improve tq.el.
- Update from CVS: src/puresize.h (PURESIZE_RATIO): Reduce to 10/6.
* gnus--rel--5.10 (patch 81-85)
- Update from CVS
- Merge from emacs--devo--0
author | Miles Bader <miles@gnu.org> |
---|---|
date | Mon, 17 Apr 2006 08:41:12 +0000 |
parents | d6f8fe3307c8 d81780942bb8 |
children | 72dea2ff0142 |
comparison
equal
deleted
inserted
replaced
90383:ab20fb198dda | 90384:c156f6a9e7b5 |
---|---|
132 (mh-index-delete-from-sequence sequence msg-list)))) | 132 (mh-index-delete-from-sequence sequence msg-list)))) |
133 (when (and (eq sequence mh-unseen-seq) (mh-speed-flists-active-p)) | 133 (when (and (eq sequence mh-unseen-seq) (mh-speed-flists-active-p)) |
134 (apply #'mh-speed-flists t folders-changed)))) | 134 (apply #'mh-speed-flists t folders-changed)))) |
135 | 135 |
136 ;; Shush compiler. | 136 ;; Shush compiler. |
137 (eval-when-compile (defvar view-exit-action)) | 137 (defvar view-exit-action) |
138 | 138 |
139 ;;;###mh-autoload | 139 ;;;###mh-autoload |
140 (defun mh-list-sequences () | 140 (defun mh-list-sequences () |
141 "List all sequences in folder. | 141 "List all sequences in folder. |
142 | 142 |
200 (mapconcat 'concat | 200 (mapconcat 'concat |
201 (mh-list-to-string (mh-seq-containing-msg message t)) | 201 (mh-list-to-string (mh-seq-containing-msg message t)) |
202 " ")))) | 202 " ")))) |
203 | 203 |
204 ;; Shush compiler. | 204 ;; Shush compiler. |
205 (eval-when-compile (mh-do-in-xemacs (defvar tool-bar-mode))) | 205 (defvar tool-bar-mode) ; XEmacs |
206 | 206 |
207 ;;;###mh-autoload | 207 ;;;###mh-autoload |
208 (defun mh-narrow-to-seq (sequence) | 208 (defun mh-narrow-to-seq (sequence) |
209 "Restrict display to messages in SEQUENCE. | 209 "Restrict display to messages in SEQUENCE. |
210 | 210 |