Mercurial > hg > xemacs-beta

comparison lisp/gnus/gnus.el @ 169:15872534500d r20-3b11

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
Import from CVS: tag r20-3b11
author cvs
date Mon, 13 Aug 2007 09:46:53 +0200
parents 85ec50267440
children 8eaf7971accc
comparison
equal deleted inserted replaced
168:9851d5c6556e 169:15872534500d
236 (defgroup gnus-exit nil 236 (defgroup gnus-exit nil
237 "Exiting gnus." 237 "Exiting gnus."
238 :link '(custom-manual "(gnus)Exiting Gnus") 238 :link '(custom-manual "(gnus)Exiting Gnus")
239 :group 'gnus) 239 :group 'gnus)
240 240
241 (defconst gnus-version-number "5.4.60" 241 (defconst gnus-version-number "5.4.62"
242 "Version number for this version of Gnus.") 242 "Version number for this version of Gnus.")
243 243
244 (defconst gnus-version (format "Gnus v%s" gnus-version-number) 244 (defconst gnus-version (format "Gnus v%s" gnus-version-number)
245 "Version string for this version of Gnus.") 245 "Version string for this version of Gnus.")
246 246
789 (list 'nntp (or (ignore-errors 789 (list 'nntp (or (ignore-errors
790 (gnus-getenv-nntpserver)) 790 (gnus-getenv-nntpserver))
791 (when (and gnus-default-nntp-server 791 (when (and gnus-default-nntp-server
792 (not (string= gnus-default-nntp-server ""))) 792 (not (string= gnus-default-nntp-server "")))
793 gnus-default-nntp-server) 793 gnus-default-nntp-server)
794 (system-name))) 794 "news"))
795 (if (or (null gnus-nntp-service) 795 (if (or (null gnus-nntp-service)
796 (equal gnus-nntp-service "nntp")) 796 (equal gnus-nntp-service "nntp"))
797 nil 797 nil
798 (list gnus-nntp-service)))) 798 (list gnus-nntp-service))))
799 "Default method for selecting a newsgroup. 799 "Default method for selecting a newsgroup.
2012 (cdr val)) 2012 (cdr val))
2013 (gnus-total-expirable-newsgroups ; Check var. 2013 (gnus-total-expirable-newsgroups ; Check var.
2014 (string-match gnus-total-expirable-newsgroups group))))) 2014 (string-match gnus-total-expirable-newsgroups group)))))
2015 2015
2016 (defun gnus-group-auto-expirable-p (group) 2016 (defun gnus-group-auto-expirable-p (group)
2017 "Check whether GROUP is total-expirable or not." 2017 "Check whether GROUP is auto-expirable or not."
2018 (let ((params (gnus-group-find-parameter group)) 2018 (let ((params (gnus-group-find-parameter group))
2019 val) 2019 val)
2020 (cond 2020 (cond
2021 ((memq 'auto-expire params) 2021 ((memq 'auto-expire params)
2022 t) 2022 t)