Mercurial > hg > xemacs-beta

comparison lisp/gnus/gnus-sum.el @ 32:e04119814345 r19-15b99

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
Import from CVS: tag r19-15b99
author cvs
date Mon, 13 Aug 2007 08:52:56 +0200
parents ec9a17fef872
children d620409f5eb8
comparison
equal deleted inserted replaced
31:b9328a10c56c 32:e04119814345
3188 "Sort articles by root author." 3188 "Sort articles by root author."
3189 (string-lessp 3189 (string-lessp
3190 (let ((extract (funcall 3190 (let ((extract (funcall
3191 gnus-extract-address-components 3191 gnus-extract-address-components
3192 (mail-header-from h1)))) 3192 (mail-header-from h1))))
3193 (or (car extract) (cdr extract))) 3193 (or (car extract) (cadr extract) ""))
3194 (let ((extract (funcall 3194 (let ((extract (funcall
3195 gnus-extract-address-components 3195 gnus-extract-address-components
3196 (mail-header-from h2)))) 3196 (mail-header-from h2))))
3197 (or (car extract) (cdr extract))))) 3197 (or (car extract) (cadr extract) ""))))
3198 3198
3199 (defun gnus-thread-sort-by-author (h1 h2) 3199 (defun gnus-thread-sort-by-author (h1 h2)
3200 "Sort threads by root author." 3200 "Sort threads by root author."
3201 (gnus-article-sort-by-author 3201 (gnus-article-sort-by-author
3202 (gnus-thread-header h1) (gnus-thread-header h2))) 3202 (gnus-thread-header h1) (gnus-thread-header h2)))
5666 ;; those removed. 5666 ;; those removed.
5667 (list gnus-del-mark gnus-read-mark gnus-ancient-mark 5667 (list gnus-del-mark gnus-read-mark gnus-ancient-mark
5668 gnus-killed-mark gnus-kill-file-mark 5668 gnus-killed-mark gnus-kill-file-mark
5669 gnus-low-score-mark gnus-expirable-mark 5669 gnus-low-score-mark gnus-expirable-mark
5670 gnus-canceled-mark gnus-catchup-mark gnus-sparse-mark 5670 gnus-canceled-mark gnus-catchup-mark gnus-sparse-mark
5671 gnus-duplicate-mark) 5671 gnus-duplicate-mark gnus-souped-mark)
5672 'reverse))) 5672 'reverse)))
5673 5673
5674 (defalias 'gnus-summary-delete-marked-with 'gnus-summary-limit-exclude-marks) 5674 (defalias 'gnus-summary-delete-marked-with 'gnus-summary-limit-exclude-marks)
5675 (make-obsolete 'gnus-summary-delete-marked-with 5675 (make-obsolete 'gnus-summary-delete-marked-with
5676 'gnus-summary-limit-exlude-marks) 5676 'gnus-summary-limit-exlude-marks)