Mercurial > emacs
comparison lisp/gnus/gnus-sum.el @ 79577:19f495ba0a8d
Merge from gnus--rel--5.10
Revision: emacs@sv.gnu.org/emacs--rel--22--patch-164
| author | Miles Bader <miles@gnu.org> |
|---|---|
| date | Sun, 16 Dec 2007 05:04:28 +0000 |
| parents | 8d26a192ba18 |
| children | 1cb31606209f |
comparison
equal
deleted
inserted
replaced
| 79576:a1667b17853a | 79577:19f495ba0a8d |
|---|---|
| 7490 (gnus-summary-last-article-p (gnus-summary-article-number))) | 7490 (gnus-summary-last-article-p (gnus-summary-article-number))) |
| 7491 (and gnus-auto-select-same | 7491 (and gnus-auto-select-same |
| 7492 (gnus-summary-article-subject)))) | 7492 (gnus-summary-article-subject)))) |
| 7493 | 7493 |
| 7494 (defun gnus-summary-prev-article (&optional unread subject) | 7494 (defun gnus-summary-prev-article (&optional unread subject) |
| 7495 "Select the article after the current one. | 7495 "Select the article before the current one. |
| 7496 If UNREAD is non-nil, only unread articles are selected." | 7496 If UNREAD is non-nil, only unread articles are selected." |
| 7497 (interactive "P") | 7497 (interactive "P") |
| 7498 (gnus-summary-next-article unread subject t)) | 7498 (gnus-summary-next-article unread subject t)) |
| 7499 | 7499 |
| 7500 (defun gnus-summary-prev-unread-article () | 7500 (defun gnus-summary-prev-unread-article () |
| 10391 The difference between N and the number of marks cleared is returned." | 10391 The difference between N and the number of marks cleared is returned." |
| 10392 (interactive "p") | 10392 (interactive "p") |
| 10393 (gnus-summary-mark-forward (- n) gnus-unread-mark)) | 10393 (gnus-summary-mark-forward (- n) gnus-unread-mark)) |
| 10394 | 10394 |
| 10395 (defun gnus-summary-mark-unread-as-read () | 10395 (defun gnus-summary-mark-unread-as-read () |
| 10396 "Intended to be used by `gnus-summary-mark-article-hook'." | 10396 "Intended to be used by `gnus-mark-article-hook'." |
| 10397 (when (memq gnus-current-article gnus-newsgroup-unreads) | 10397 (when (memq gnus-current-article gnus-newsgroup-unreads) |
| 10398 (gnus-summary-mark-article gnus-current-article gnus-read-mark))) | 10398 (gnus-summary-mark-article gnus-current-article gnus-read-mark))) |
| 10399 | 10399 |
| 10400 (defun gnus-summary-mark-read-and-unread-as-read (&optional new-mark) | 10400 (defun gnus-summary-mark-read-and-unread-as-read (&optional new-mark) |
| 10401 "Intended to be used by `gnus-summary-mark-article-hook'." | 10401 "Intended to be used by `gnus-mark-article-hook'." |
| 10402 (let ((mark (gnus-summary-article-mark))) | 10402 (let ((mark (gnus-summary-article-mark))) |
| 10403 (when (or (gnus-unread-mark-p mark) | 10403 (when (or (gnus-unread-mark-p mark) |
| 10404 (gnus-read-mark-p mark)) | 10404 (gnus-read-mark-p mark)) |
| 10405 (gnus-summary-mark-article gnus-current-article | 10405 (gnus-summary-mark-article gnus-current-article |
| 10406 (or new-mark gnus-read-mark))))) | 10406 (or new-mark gnus-read-mark))))) |
| 10407 | 10407 |
| 10408 (defun gnus-summary-mark-current-read-and-unread-as-read (&optional new-mark) | 10408 (defun gnus-summary-mark-current-read-and-unread-as-read (&optional new-mark) |
| 10409 "Intended to be used by `gnus-summary-mark-article-hook'." | 10409 "Intended to be used by `gnus-mark-article-hook'." |
| 10410 (let ((mark (gnus-summary-article-mark))) | 10410 (let ((mark (gnus-summary-article-mark))) |
| 10411 (when (or (gnus-unread-mark-p mark) | 10411 (when (or (gnus-unread-mark-p mark) |
| 10412 (gnus-read-mark-p mark)) | 10412 (gnus-read-mark-p mark)) |
| 10413 (gnus-summary-mark-article (gnus-summary-article-number) | 10413 (gnus-summary-mark-article (gnus-summary-article-number) |
| 10414 (or new-mark gnus-read-mark))))) | 10414 (or new-mark gnus-read-mark))))) |
| 10415 | 10415 |
| 10416 (defun gnus-summary-mark-unread-as-ticked () | 10416 (defun gnus-summary-mark-unread-as-ticked () |
| 10417 "Intended to be used by `gnus-summary-mark-article-hook'." | 10417 "Intended to be used by `gnus-mark-article-hook'." |
| 10418 (when (memq gnus-current-article gnus-newsgroup-unreads) | 10418 (when (memq gnus-current-article gnus-newsgroup-unreads) |
| 10419 (gnus-summary-mark-article gnus-current-article gnus-ticked-mark))) | 10419 (gnus-summary-mark-article gnus-current-article gnus-ticked-mark))) |
| 10420 | 10420 |
| 10421 (defun gnus-summary-mark-region-as-read (point mark all) | 10421 (defun gnus-summary-mark-region-as-read (point mark all) |
| 10422 "Mark all unread articles between point and mark as read. | 10422 "Mark all unread articles between point and mark as read. |