Mercurial > hg > xemacs-beta

comparison lisp/gnus/gnus-group.el @ 18:d95e72db5c07 r19-15b92

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
Import from CVS: tag r19-15b92
author cvs
date Mon, 13 Aug 2007 08:49:43 +0200
parents 0293115a14e9
children 8fc7fe29b841
comparison
equal deleted inserted replaced
17:4579af9d8826 18:d95e72db5c07
834 unread (cdr gnus-group-list-mode))) 834 unread (cdr gnus-group-list-mode)))
835 (setq level (gnus-group-default-level level)) 835 (setq level (gnus-group-default-level level))
836 (gnus-group-setup-buffer) 836 (gnus-group-setup-buffer)
837 (gnus-update-format-specifications nil 'group 'group-mode) 837 (gnus-update-format-specifications nil 'group 'group-mode)
838 (let ((case-fold-search nil) 838 (let ((case-fold-search nil)
839 (props (text-properties-at (point-at-bol))) 839 (props (text-properties-at (gnus-point-at-bol)))
840 (empty (= (point-min) (point-max))) 840 (empty (= (point-min) (point-max)))
841 (group (gnus-group-group-name)) 841 (group (gnus-group-group-name))
842 number) 842 number)
843 (set-buffer gnus-group-buffer) 843 (set-buffer gnus-group-buffer)
844 (setq number (funcall gnus-group-prepare-function level unread lowest)) 844 (setq number (funcall gnus-group-prepare-function level unread lowest))
1218 (list mode-string))) 1218 (list mode-string)))
1219 (set-buffer-modified-p modified)))))) 1219 (set-buffer-modified-p modified))))))
1220 1220
1221 (defun gnus-group-group-name () 1221 (defun gnus-group-group-name ()
1222 "Get the name of the newsgroup on the current line." 1222 "Get the name of the newsgroup on the current line."
1223 (let ((group (get-text-property (point-at-bol) 'gnus-group))) 1223 (let ((group (get-text-property (gnus-point-at-bol) 'gnus-group)))
1224 (and group (symbol-name group)))) 1224 (and group (symbol-name group))))
1225 1225
1226 (defun gnus-group-group-level () 1226 (defun gnus-group-group-level ()
1227 "Get the level of the newsgroup on the current line." 1227 "Get the level of the newsgroup on the current line."
1228 (get-text-property (point-at-bol) 'gnus-level)) 1228 (get-text-property (gnus-point-at-bol) 'gnus-level))
1229 1229
1230 (defun gnus-group-group-indentation () 1230 (defun gnus-group-group-indentation ()
1231 "Get the indentation of the newsgroup on the current line." 1231 "Get the indentation of the newsgroup on the current line."
1232 (or (get-text-property (point-at-bol) 'gnus-indentation) 1232 (or (get-text-property (gnus-point-at-bol) 'gnus-indentation)
1233 (and gnus-group-indentation-function 1233 (and gnus-group-indentation-function
1234 (funcall gnus-group-indentation-function)) 1234 (funcall gnus-group-indentation-function))
1235 "")) 1235 ""))
1236 1236
1237 (defun gnus-group-group-unread () 1237 (defun gnus-group-group-unread ()
1238 "Get the number of unread articles of the newsgroup on the current line." 1238 "Get the number of unread articles of the newsgroup on the current line."
1239 (get-text-property (point-at-bol) 'gnus-unread)) 1239 (get-text-property (gnus-point-at-bol) 'gnus-unread))
1240 1240
1241 (defun gnus-group-new-mail (group) 1241 (defun gnus-group-new-mail (group)
1242 (if (nnmail-new-mail-p (gnus-group-real-name group)) 1242 (if (nnmail-new-mail-p (gnus-group-real-name group))
1243 gnus-new-mail-mark 1243 gnus-new-mail-mark
1244 ? )) 1244 ? ))