diff options
| author | Lars Magne Ingebrigtsen | 2010-10-12 14:17:15 +0000 |
|---|---|---|
| committer | Katsumi Yamaoka | 2010-10-12 14:17:15 +0000 |
| commit | 6ffab59298c30ce03d1f0858091b52c0a4aeda0e (patch) | |
| tree | 917ebedc542c57d9e8e6331e78f612f65667311b | |
| parent | 3868ea09219560d0f417243c746ed52c80e7b38a (diff) | |
| download | emacs-6ffab59298c30ce03d1f0858091b52c0a4aeda0e.tar.gz emacs-6ffab59298c30ce03d1f0858091b52c0a4aeda0e.zip | |
gnus-sum.el: Remove long obsoleted functions.
| -rw-r--r-- | lisp/gnus/ChangeLog | 6 | ||||
| -rw-r--r-- | lisp/gnus/gnus-kill.el | 2 | ||||
| -rw-r--r-- | lisp/gnus/gnus-sum.el | 10 |
3 files changed, 7 insertions, 11 deletions
diff --git a/lisp/gnus/ChangeLog b/lisp/gnus/ChangeLog index 60fbfba2313..7898f380028 100644 --- a/lisp/gnus/ChangeLog +++ b/lisp/gnus/ChangeLog | |||
| @@ -1,3 +1,9 @@ | |||
| 1 | 2010-10-12 Lars Magne Ingebrigtsen <larsi@gnus.org> | ||
| 2 | |||
| 3 | * gnus-sum.el (gnus-summary-mark-as-unread-forward) | ||
| 4 | (gnus-summary-mark-as-unread-backward, gnus-summary-mark-as-unread): | ||
| 5 | Remove long obsoleted functions. | ||
| 6 | |||
| 1 | 2010-10-11 Katsumi Yamaoka <yamaoka@jpl.org> | 7 | 2010-10-11 Katsumi Yamaoka <yamaoka@jpl.org> |
| 2 | 8 | ||
| 3 | * nnimap.el (gnutls-negotiate): Silence the byte compiler. | 9 | * nnimap.el (gnutls-negotiate): Silence the byte compiler. |
diff --git a/lisp/gnus/gnus-kill.el b/lisp/gnus/gnus-kill.el index 5483a741f2f..17a6266c9b9 100644 --- a/lisp/gnus/gnus-kill.el +++ b/lisp/gnus/gnus-kill.el | |||
| @@ -480,7 +480,7 @@ Returns the number of articles marked as read." | |||
| 480 | (or (cdr (assq modifier mod-to-header)) "subject") | 480 | (or (cdr (assq modifier mod-to-header)) "subject") |
| 481 | pattern | 481 | pattern |
| 482 | (if (string-match "m" commands) | 482 | (if (string-match "m" commands) |
| 483 | '(gnus-summary-mark-as-unread nil " ") | 483 | '(gnus-summary-tick-article nil " ") |
| 484 | '(gnus-summary-mark-as-read nil "X")) | 484 | '(gnus-summary-mark-as-read nil "X")) |
| 485 | nil t)) | 485 | nil t)) |
| 486 | (forward-line 1)))) | 486 | (forward-line 1)))) |
diff --git a/lisp/gnus/gnus-sum.el b/lisp/gnus/gnus-sum.el index 29bf4c49938..1086e28882c 100644 --- a/lisp/gnus/gnus-sum.el +++ b/lisp/gnus/gnus-sum.el | |||
| @@ -10853,10 +10853,6 @@ If NO-EXPIRE, auto-expiry will be inhibited." | |||
| 10853 | (gnus-alist-pull article gnus-newsgroup-reads) | 10853 | (gnus-alist-pull article gnus-newsgroup-reads) |
| 10854 | t))) | 10854 | t))) |
| 10855 | 10855 | ||
| 10856 | (defalias 'gnus-summary-mark-as-unread-forward | ||
| 10857 | 'gnus-summary-tick-article-forward) | ||
| 10858 | (make-obsolete 'gnus-summary-mark-as-unread-forward | ||
| 10859 | 'gnus-summary-tick-article-forward "Emacs 20.4") | ||
| 10860 | (defun gnus-summary-tick-article-forward (n) | 10856 | (defun gnus-summary-tick-article-forward (n) |
| 10861 | "Tick N articles forwards. | 10857 | "Tick N articles forwards. |
| 10862 | If N is negative, tick backwards instead. | 10858 | If N is negative, tick backwards instead. |
| @@ -10864,18 +10860,12 @@ The difference between N and the number of articles ticked is returned." | |||
| 10864 | (interactive "p") | 10860 | (interactive "p") |
| 10865 | (gnus-summary-mark-forward n gnus-ticked-mark)) | 10861 | (gnus-summary-mark-forward n gnus-ticked-mark)) |
| 10866 | 10862 | ||
| 10867 | (defalias 'gnus-summary-mark-as-unread-backward | ||
| 10868 | 'gnus-summary-tick-article-backward) | ||
| 10869 | (make-obsolete 'gnus-summary-mark-as-unread-backward | ||
| 10870 | 'gnus-summary-tick-article-backward "Emacs 20.4") | ||
| 10871 | (defun gnus-summary-tick-article-backward (n) | 10863 | (defun gnus-summary-tick-article-backward (n) |
| 10872 | "Tick N articles backwards. | 10864 | "Tick N articles backwards. |
| 10873 | The difference between N and the number of articles ticked is returned." | 10865 | The difference between N and the number of articles ticked is returned." |
| 10874 | (interactive "p") | 10866 | (interactive "p") |
| 10875 | (gnus-summary-mark-forward (- n) gnus-ticked-mark)) | 10867 | (gnus-summary-mark-forward (- n) gnus-ticked-mark)) |
| 10876 | 10868 | ||
| 10877 | (defalias 'gnus-summary-mark-as-unread 'gnus-summary-tick-article) | ||
| 10878 | (make-obsolete 'gnus-summary-mark-as-unread 'gnus-summary-tick-article "Emacs 20.4") | ||
| 10879 | (defun gnus-summary-tick-article (&optional article clear-mark) | 10869 | (defun gnus-summary-tick-article (&optional article clear-mark) |
| 10880 | "Mark current article as unread. | 10870 | "Mark current article as unread. |
| 10881 | Optional 1st argument ARTICLE specifies article number to be marked as unread. | 10871 | Optional 1st argument ARTICLE specifies article number to be marked as unread. |