Mercurial > hg > xemacs-beta

comparison lisp/gnus/gnus.el @ 38:1a767b41a199 r19-15b102

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
Import from CVS: tag r19-15b102
author cvs
date Mon, 13 Aug 2007 08:54:01 +0200
parents c53a95d3c46d
children 8b8b7f3559a2
comparison
equal deleted inserted replaced
37:ad40ac360d14 38:1a767b41a199
224 (defgroup gnus-exit nil 224 (defgroup gnus-exit nil
225 "Exiting gnus." 225 "Exiting gnus."
226 :link '(custom-manual "(gnus)Exiting Gnus") 226 :link '(custom-manual "(gnus)Exiting Gnus")
227 :group 'gnus) 227 :group 'gnus)
228 228
229 (defconst gnus-version-number "5.4.30" 229 (defconst gnus-version-number "5.4.33"
230 "Version number for this version of Gnus.") 230 "Version number for this version of Gnus.")
231 231
232 (defconst gnus-version (format "Gnus v%s" gnus-version-number) 232 (defconst gnus-version (format "Gnus v%s" gnus-version-number)
233 "Version string for this version of Gnus.") 233 "Version string for this version of Gnus.")
234 234
2242 (cdr (assq symbol params)))) ; or a cons. 2242 (cdr (assq symbol params)))) ; or a cons.
2243 2243
2244 (defun gnus-group-add-parameter (group param) 2244 (defun gnus-group-add-parameter (group param)
2245 "Add parameter PARAM to GROUP." 2245 "Add parameter PARAM to GROUP."
2246 (let ((info (gnus-get-info group))) 2246 (let ((info (gnus-get-info group)))
2247 (if (not info) 2247 (when info
2248 () ; This is a dead group. We just ignore it. 2248 (gnus-group-remove-parameter group (if (consp param) (car param) param))
2249 ;; Cons the new param to the old one and update. 2249 ;; Cons the new param to the old one and update.
2250 (gnus-group-set-info (cons param (gnus-info-params info)) 2250 (gnus-group-set-info (cons param (gnus-info-params info))
2251 group 'params)))) 2251 group 'params))))
2252 2252
2253 (defun gnus-group-set-parameter (group name value) 2253 (defun gnus-group-set-parameter (group name value)
2254 "Set parameter NAME to VALUE in GROUP." 2254 "Set parameter NAME to VALUE in GROUP."
2255 (let ((info (gnus-get-info group))) 2255 (let ((info (gnus-get-info group)))
2256 (if (not info) 2256 (when info
2257 () ; This is a dead group. We just ignore it. 2257 (gnus-group-remove-parameter group name)
2258 (let ((old-params (gnus-info-params info)) 2258 (let ((old-params (gnus-info-params info))
2259 (new-params (list (cons name value)))) 2259 (new-params (list (cons name value))))
2260 (while old-params 2260 (while old-params
2261 (when (or (not (listp (car old-params))) 2261 (when (or (not (listp (car old-params)))
2262 (not (eq (caar old-params) name))) 2262 (not (eq (caar old-params) name)))
2263 (setq new-params (append new-params (list (car old-params))))) 2263 (setq new-params (append new-params (list (car old-params)))))
2264 (setq old-params (cdr old-params))) 2264 (setq old-params (cdr old-params)))
2265 (gnus-group-set-info new-params group 'params))))) 2265 (gnus-group-set-info new-params group 'params)))))
2266
2267 (defun gnus-group-remove-parameter (group name)
2268 "Remove parameter NAME from GROUP."
2269 (let ((info (gnus-get-info group)))
2270 (when info
2271 (let ((params (gnus-info-params info)))
2272 (when params
2273 (setq params (delq name params))
2274 (while (assq name params)
2275 (setq params (delq (assq name params) params)))
2276 (gnus-info-set-params info params))))))
2266 2277
2267 (defun gnus-group-add-score (group &optional score) 2278 (defun gnus-group-add-score (group &optional score)
2268 "Add SCORE to the GROUP score. 2279 "Add SCORE to the GROUP score.
2269 If SCORE is nil, add 1 to the score of GROUP." 2280 If SCORE is nil, add 1 to the score of GROUP."
2270 (let ((info (gnus-get-info group))) 2281 (let ((info (gnus-get-info group)))