Commit 6ffab592 authored by Lars Magne Ingebrigtsen's avatar Lars Magne Ingebrigtsen Committed by Katsumi Yamaoka
Browse files

gnus-sum.el: Remove long obsoleted functions.

parent 3868ea09
2010-10-12 Lars Magne Ingebrigtsen <larsi@gnus.org>
* gnus-sum.el (gnus-summary-mark-as-unread-forward)
(gnus-summary-mark-as-unread-backward, gnus-summary-mark-as-unread):
Remove long obsoleted functions.
2010-10-11 Katsumi Yamaoka <yamaoka@jpl.org> 2010-10-11 Katsumi Yamaoka <yamaoka@jpl.org>
   
* nnimap.el (gnutls-negotiate): Silence the byte compiler. * nnimap.el (gnutls-negotiate): Silence the byte compiler.
......
...@@ -480,7 +480,7 @@ Returns the number of articles marked as read." ...@@ -480,7 +480,7 @@ Returns the number of articles marked as read."
(or (cdr (assq modifier mod-to-header)) "subject") (or (cdr (assq modifier mod-to-header)) "subject")
pattern pattern
(if (string-match "m" commands) (if (string-match "m" commands)
'(gnus-summary-mark-as-unread nil " ") '(gnus-summary-tick-article nil " ")
'(gnus-summary-mark-as-read nil "X")) '(gnus-summary-mark-as-read nil "X"))
nil t)) nil t))
(forward-line 1)))) (forward-line 1))))
......
...@@ -10853,10 +10853,6 @@ If NO-EXPIRE, auto-expiry will be inhibited." ...@@ -10853,10 +10853,6 @@ If NO-EXPIRE, auto-expiry will be inhibited."
(gnus-alist-pull article gnus-newsgroup-reads) (gnus-alist-pull article gnus-newsgroup-reads)
t))) t)))
(defalias 'gnus-summary-mark-as-unread-forward
'gnus-summary-tick-article-forward)
(make-obsolete 'gnus-summary-mark-as-unread-forward
'gnus-summary-tick-article-forward "Emacs 20.4")
(defun gnus-summary-tick-article-forward (n) (defun gnus-summary-tick-article-forward (n)
"Tick N articles forwards. "Tick N articles forwards.
If N is negative, tick backwards instead. If N is negative, tick backwards instead.
...@@ -10864,18 +10860,12 @@ The difference between N and the number of articles ticked is returned." ...@@ -10864,18 +10860,12 @@ The difference between N and the number of articles ticked is returned."
(interactive "p") (interactive "p")
(gnus-summary-mark-forward n gnus-ticked-mark)) (gnus-summary-mark-forward n gnus-ticked-mark))
(defalias 'gnus-summary-mark-as-unread-backward
'gnus-summary-tick-article-backward)
(make-obsolete 'gnus-summary-mark-as-unread-backward
'gnus-summary-tick-article-backward "Emacs 20.4")
(defun gnus-summary-tick-article-backward (n) (defun gnus-summary-tick-article-backward (n)
"Tick N articles backwards. "Tick N articles backwards.
The difference between N and the number of articles ticked is returned." The difference between N and the number of articles ticked is returned."
(interactive "p") (interactive "p")
(gnus-summary-mark-forward (- n) gnus-ticked-mark)) (gnus-summary-mark-forward (- n) gnus-ticked-mark))
(defalias 'gnus-summary-mark-as-unread 'gnus-summary-tick-article)
(make-obsolete 'gnus-summary-mark-as-unread 'gnus-summary-tick-article "Emacs 20.4")
(defun gnus-summary-tick-article (&optional article clear-mark) (defun gnus-summary-tick-article (&optional article clear-mark)
"Mark current article as unread. "Mark current article as unread.
Optional 1st argument ARTICLE specifies article number to be marked as unread. Optional 1st argument ARTICLE specifies article number to be marked as unread.
......
Markdown is supported
0% or .
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment