comparison lisp/gnus/gnus-sum.el @ 104700:9866b069527c

* spam.el (spam-ifile-path, spam-bogofilter-path, spam-sa-learn-path) (spam-ifile-database-path, spam-bsfilter-path, spam-spamassassin-path): * nnmail.el (nnmail-spool-file, nnmail-fix-eudora-headers): * nnir.el (nnir-swish-e-index-file): * gnus-sum.el (gnus-summary-delete-marked-as-read) (gnus-summary-delete-marked-with, gnus-summary-mark-as-unread-forward) (gnus-summary-mark-as-unread-backward, gnus-summary-mark-as-unread): * gnus-msg.el (gnus-inews-mark-gcc-as-read): * gnus-art.el (gnus-article-hide-pgp-hook, gnus-treat-strip-pgp) (gnus-treat-display-xface): Add Emacs version of obsolescence.
author Stefan Monnier <monnier@iro.umontreal.ca>
date Sat, 29 Aug 2009 03:03:23 +0000
parents b99b3dda298b
children 2fb28585eb6b
comparison
equal deleted inserted replaced
104699:5f1532335662 104700:9866b069527c
8282 (gnus-summary-limit articles)) 8282 (gnus-summary-limit articles))
8283 (gnus-summary-position-point)) 8283 (gnus-summary-position-point))
8284 8284
8285 (defalias 'gnus-summary-delete-marked-as-read 'gnus-summary-limit-to-unread) 8285 (defalias 'gnus-summary-delete-marked-as-read 'gnus-summary-limit-to-unread)
8286 (make-obsolete 8286 (make-obsolete
8287 'gnus-summary-delete-marked-as-read 'gnus-summary-limit-to-unread) 8287 'gnus-summary-delete-marked-as-read 'gnus-summary-limit-to-unread "Emacs 20.4")
8288 8288
8289 (defun gnus-summary-limit-to-unread (&optional all) 8289 (defun gnus-summary-limit-to-unread (&optional all)
8290 "Limit the summary buffer to articles that are not marked as read. 8290 "Limit the summary buffer to articles that are not marked as read.
8291 If ALL is non-nil, limit strictly to unread articles." 8291 If ALL is non-nil, limit strictly to unread articles."
8292 (interactive "P") 8292 (interactive "P")
8377 (gnus-summary-limit gnus-newsgroup-replied)) 8377 (gnus-summary-limit gnus-newsgroup-replied))
8378 (gnus-summary-position-point)) 8378 (gnus-summary-position-point))
8379 8379
8380 (defalias 'gnus-summary-delete-marked-with 'gnus-summary-limit-exclude-marks) 8380 (defalias 'gnus-summary-delete-marked-with 'gnus-summary-limit-exclude-marks)
8381 (make-obsolete 'gnus-summary-delete-marked-with 8381 (make-obsolete 'gnus-summary-delete-marked-with
8382 'gnus-summary-limit-exclude-marks) 8382 'gnus-summary-limit-exclude-marks "Emacs 20.4")
8383 8383
8384 (defun gnus-summary-limit-exclude-marks (marks &optional reverse) 8384 (defun gnus-summary-limit-exclude-marks (marks &optional reverse)
8385 "Exclude articles that are marked with MARKS (e.g. \"DK\"). 8385 "Exclude articles that are marked with MARKS (e.g. \"DK\").
8386 If REVERSE, limit the summary buffer to articles that are marked 8386 If REVERSE, limit the summary buffer to articles that are marked
8387 with MARKS. MARKS can either be a string of marks or a list of marks. 8387 with MARKS. MARKS can either be a string of marks or a list of marks.
10819 t))) 10819 t)))
10820 10820
10821 (defalias 'gnus-summary-mark-as-unread-forward 10821 (defalias 'gnus-summary-mark-as-unread-forward
10822 'gnus-summary-tick-article-forward) 10822 'gnus-summary-tick-article-forward)
10823 (make-obsolete 'gnus-summary-mark-as-unread-forward 10823 (make-obsolete 'gnus-summary-mark-as-unread-forward
10824 'gnus-summary-tick-article-forward) 10824 'gnus-summary-tick-article-forward "Emacs 20.4")
10825 (defun gnus-summary-tick-article-forward (n) 10825 (defun gnus-summary-tick-article-forward (n)
10826 "Tick N articles forwards. 10826 "Tick N articles forwards.
10827 If N is negative, tick backwards instead. 10827 If N is negative, tick backwards instead.
10828 The difference between N and the number of articles ticked is returned." 10828 The difference between N and the number of articles ticked is returned."
10829 (interactive "p") 10829 (interactive "p")
10830 (gnus-summary-mark-forward n gnus-ticked-mark)) 10830 (gnus-summary-mark-forward n gnus-ticked-mark))
10831 10831
10832 (defalias 'gnus-summary-mark-as-unread-backward 10832 (defalias 'gnus-summary-mark-as-unread-backward
10833 'gnus-summary-tick-article-backward) 10833 'gnus-summary-tick-article-backward)
10834 (make-obsolete 'gnus-summary-mark-as-unread-backward 10834 (make-obsolete 'gnus-summary-mark-as-unread-backward
10835 'gnus-summary-tick-article-backward) 10835 'gnus-summary-tick-article-backward "Emacs 20.4")
10836 (defun gnus-summary-tick-article-backward (n) 10836 (defun gnus-summary-tick-article-backward (n)
10837 "Tick N articles backwards. 10837 "Tick N articles backwards.
10838 The difference between N and the number of articles ticked is returned." 10838 The difference between N and the number of articles ticked is returned."
10839 (interactive "p") 10839 (interactive "p")
10840 (gnus-summary-mark-forward (- n) gnus-ticked-mark)) 10840 (gnus-summary-mark-forward (- n) gnus-ticked-mark))
10841 10841
10842 (defalias 'gnus-summary-mark-as-unread 'gnus-summary-tick-article) 10842 (defalias 'gnus-summary-mark-as-unread 'gnus-summary-tick-article)
10843 (make-obsolete 'gnus-summary-mark-as-unread 'gnus-summary-tick-article) 10843 (make-obsolete 'gnus-summary-mark-as-unread 'gnus-summary-tick-article "Emacs 20.4")
10844 (defun gnus-summary-tick-article (&optional article clear-mark) 10844 (defun gnus-summary-tick-article (&optional article clear-mark)
10845 "Mark current article as unread. 10845 "Mark current article as unread.
10846 Optional 1st argument ARTICLE specifies article number to be marked as unread. 10846 Optional 1st argument ARTICLE specifies article number to be marked as unread.
10847 Optional 2nd argument CLEAR-MARK remove any kinds of mark." 10847 Optional 2nd argument CLEAR-MARK remove any kinds of mark."
10848 (interactive) 10848 (interactive)