/[emacs]/emacs/lisp/gnus/gnus-group.el
ViewVC logotype

Diff of /emacs/lisp/gnus/gnus-group.el

Parent Directory Parent Directory | Revision Log Revision Log | View Patch Patch

revision 1.19 by zsh, Tue Apr 2 20:24:32 2002 UTC revision 1.19.2.1 by miles, Fri Apr 4 06:20:20 2003 UTC
# Line 375  particular group line should be displaye Line 375  particular group line should be displaye
375  The icon from the file field after the first true form is used.  You  The icon from the file field after the first true form is used.  You
376  can change how those group lines are displayed by editing the file  can change how those group lines are displayed by editing the file
377  field.  The File will either be found in the  field.  The File will either be found in the
378  `gnus-group-glyph-directory' or by designating absolute path to the  `gnus-group-glyph-directory' or by designating absolute name of the
379  file.  file.
380    
381  It is also possible to change and add form fields, but currently that  It is also possible to change and add form fields, but currently that
# Line 822  For example: Line 822  For example:
822    
823  ;; Emacs 21 tool bar.  Should be no-op otherwise.  ;; Emacs 21 tool bar.  Should be no-op otherwise.
824  (defun gnus-group-make-tool-bar ()  (defun gnus-group-make-tool-bar ()
825    (if (and    (if (and
826         (condition-case nil (require 'tool-bar) (error nil))         (condition-case nil (require 'tool-bar) (error nil))
827         (fboundp 'tool-bar-add-item-from-menu)         (fboundp 'tool-bar-add-item-from-menu)
828         (default-value 'tool-bar-mode)         (default-value 'tool-bar-mode)
# Line 938  The following commands are available: Line 938  The following commands are available:
938    (let ((item (assoc method gnus-group-name-charset-method-alist))    (let ((item (assoc method gnus-group-name-charset-method-alist))
939          (alist gnus-group-name-charset-group-alist)          (alist gnus-group-name-charset-group-alist)
940          result)          result)
941      (if item      (if item
942          (cdr item)          (cdr item)
943        (while (setq item (pop alist))        (while (setq item (pop alist))
944          (if (string-match (car item) group)          (if (string-match (car item) group)
# Line 1099  If REGEXP, only list groups matching REG Line 1099  If REGEXP, only list groups matching REG
1099              (gnus-add-text-properties              (gnus-add-text-properties
1100               (point) (prog1 (1+ (point))               (point) (prog1 (1+ (point))
1101                         (insert " " mark "     *: "                         (insert " " mark "     *: "
1102                                 (gnus-group-name-decode group                                 (gnus-group-name-decode group
1103                                                         (gnus-group-name-charset                                                         (gnus-group-name-charset
1104                                                          nil group))                                                          nil group))
1105                                 "\n"))                                 "\n"))
1106               (list 'gnus-group (gnus-intern-safe group gnus-active-hashtb)               (list 'gnus-group (gnus-intern-safe group gnus-active-hashtb)
1107                     'gnus-unread t                     'gnus-unread t
# Line 1112  If REGEXP, only list groups matching REG Line 1112  If REGEXP, only list groups matching REG
1112          (gnus-add-text-properties          (gnus-add-text-properties
1113           (point) (prog1 (1+ (point))           (point) (prog1 (1+ (point))
1114                     (insert " " mark "     *: "                     (insert " " mark "     *: "
1115                             (gnus-group-name-decode group                             (gnus-group-name-decode group
1116                                                     (gnus-group-name-charset                                                     (gnus-group-name-charset
1117                                                      nil group))                                                      nil group))
1118                             "\n"))                             "\n"))
1119           (list 'gnus-group (gnus-intern-safe group gnus-active-hashtb)           (list 'gnus-group (gnus-intern-safe group gnus-active-hashtb)
1120                 'gnus-unread t                 'gnus-unread t
# Line 1168  If REGEXP, only list groups matching REG Line 1168  If REGEXP, only list groups matching REG
1168                                                      gnus-tmp-method)                                                      gnus-tmp-method)
1169    "Insert a group line in the group buffer."    "Insert a group line in the group buffer."
1170    (let* ((gnus-tmp-method    (let* ((gnus-tmp-method
1171            (gnus-server-get-method gnus-tmp-group gnus-tmp-method))            (gnus-server-get-method gnus-tmp-group gnus-tmp-method))
1172           (group-name-charset (gnus-group-name-charset gnus-tmp-method           (group-name-charset (gnus-group-name-charset gnus-tmp-method
1173                                                        gnus-tmp-group))                                                        gnus-tmp-group))
1174           (gnus-tmp-active (gnus-active gnus-tmp-group))           (gnus-tmp-active (gnus-active gnus-tmp-group))
# Line 1188  If REGEXP, only list groups matching REG Line 1188  If REGEXP, only list groups matching REG
1188                  ((<= gnus-tmp-level gnus-level-unsubscribed) ?U)                  ((<= gnus-tmp-level gnus-level-unsubscribed) ?U)
1189                  ((= gnus-tmp-level gnus-level-zombie) ?Z)                  ((= gnus-tmp-level gnus-level-zombie) ?Z)
1190                  (t ?K)))                  (t ?K)))
1191           (gnus-tmp-qualified-group           (gnus-tmp-qualified-group
1192            (gnus-group-name-decode (gnus-group-real-name gnus-tmp-group)            (gnus-group-name-decode (gnus-group-real-name gnus-tmp-group)
1193                                    group-name-charset))                                    group-name-charset))
1194           (gnus-tmp-newsgroup-description           (gnus-tmp-newsgroup-description
1195            (if gnus-description-hashtb            (if gnus-description-hashtb
1196                (or (gnus-group-name-decode                (or (gnus-group-name-decode
1197                     (gnus-gethash gnus-tmp-group gnus-description-hashtb)                     (gnus-gethash gnus-tmp-group gnus-description-hashtb)
1198                     group-name-charset) "")                     group-name-charset) "")
1199              ""))              ""))
1200           (gnus-tmp-moderated           (gnus-tmp-moderated
# Line 1840  If TEST-MARKED, the line must be marked. Line 1840  If TEST-MARKED, the line must be marked.
1840       (test-marked       (test-marked
1841        (goto-char (point-min))        (goto-char (point-min))
1842        (let (found)        (let (found)
1843          (while (and (not found)          (while (and (not found)
1844                      (gnus-goto-char                      (gnus-goto-char
1845                       (text-property-any                       (text-property-any
1846                        (point) (point-max)                        (point) (point-max)
1847                        'gnus-group                        'gnus-group
1848                        (gnus-intern-safe group gnus-active-hashtb))))                        (gnus-intern-safe group gnus-active-hashtb))))
1849            (if (gnus-group-mark-line-p)            (if (gnus-group-mark-line-p)
1850                (setq found t)                (setq found t)
# Line 2308  If SOLID (the prefix), create a solid gr Line 2308  If SOLID (the prefix), create a solid gr
2308              default-login 'gnus-group-warchive-login-history)              default-login 'gnus-group-warchive-login-history)
2309             user-mail-address))             user-mail-address))
2310           (method           (method
2311            `(nnwarchive ,address            `(nnwarchive ,address
2312                         (nnwarchive-type ,(intern type))                         (nnwarchive-type ,(intern type))
2313                         (nnwarchive-login ,login))))                         (nnwarchive-login ,login))))
2314      (gnus-group-make-group group method)))      (gnus-group-make-group group method)))
# Line 3175  entail asking the server for the groups. Line 3175  entail asking the server for the groups.
3175        (gnus-add-text-properties        (gnus-add-text-properties
3176         (point) (prog1 (1+ (point))         (point) (prog1 (1+ (point))
3177                   (insert "       *: "                   (insert "       *: "
3178                           (gnus-group-name-decode group                           (gnus-group-name-decode group
3179                                                   (gnus-group-name-charset                                                   (gnus-group-name-charset
3180                                                    nil group))                                                    nil group))
3181                           "\n"))                           "\n"))
# Line 3282  to use." Line 3282  to use."
3282      (gnus-group-group-name)      (gnus-group-group-name)
3283      (when current-prefix-arg      (when current-prefix-arg
3284        (completing-read        (completing-read
3285         "Faq dir: " (and (listp gnus-group-faq-directory)         "FAQ dir: " (and (listp gnus-group-faq-directory)
3286                          (mapcar #'list                          (mapcar #'list
3287                                  gnus-group-faq-directory))))))                                  gnus-group-faq-directory))))))
3288    (unless group    (unless group
# Line 3338  to use." Line 3338  to use."
3338       (lambda (group)       (lambda (group)
3339         (setq b (point))         (setq b (point))
3340         (let ((charset (gnus-group-name-charset nil (symbol-name group))))         (let ((charset (gnus-group-name-charset nil (symbol-name group))))
3341           (insert (format "      *: %-20s %s\n"           (insert (format "      *: %-20s %s\n"
3342                           (gnus-group-name-decode                           (gnus-group-name-decode
3343                            (symbol-name group) charset)                            (symbol-name group) charset)
3344                           (gnus-group-name-decode                           (gnus-group-name-decode
# Line 3709  or `gnus-group-catchup-group-hook'." Line 3709  or `gnus-group-catchup-group-hook'."
3709          ""          ""
3710        (gnus-time-iso8601 time))))        (gnus-time-iso8601 time))))
3711    
3712  (defun gnus-group-prepare-flat-list-dead-predicate  (defun gnus-group-prepare-flat-list-dead-predicate
3713    (groups level mark predicate)    (groups level mark predicate)
3714    (let (group)    (let (group)
3715      (if predicate      (if predicate
# Line 3719  or `gnus-group-catchup-group-hook'." Line 3719  or `gnus-group-catchup-group-hook'."
3719            (when (funcall predicate group)            (when (funcall predicate group)
3720              (gnus-add-text-properties              (gnus-add-text-properties
3721               (point) (prog1 (1+ (point))               (point) (prog1 (1+ (point))
3722                         (insert " " mark "     *: "                         (insert " " mark "     *: "
3723                                 (gnus-group-name-decode group                                 (gnus-group-name-decode group
3724                                                         (gnus-group-name-charset                                                         (gnus-group-name-charset
3725                                                          nil group))                                                          nil group))
3726                                 "\n"))                                 "\n"))
# Line 3789  This command may read the active file." Line 3789  This command may read the active file."
3789                                        (assq 'cache marks)))                                        (assq 'cache marks)))
3790                                  lowest                                  lowest
3791                                  #'(lambda (group)                                  #'(lambda (group)
3792                                      (or (gnus-gethash group                                      (or (gnus-gethash group
3793                                                        gnus-cache-active-hashtb)                                                        gnus-cache-active-hashtb)
3794                                          ;; Cache active file might use "."                                          ;; Cache active file might use "."
3795                                          ;; instead of ":".                                          ;; instead of ":".
3796                                          (gnus-gethash                                          (gnus-gethash
3797                                           (mapconcat 'identity                                           (mapconcat 'identity
3798                                                      (split-string group ":")                                                      (split-string group ":")
3799                                                      ".")                                                      ".")

Legend:
Removed from v.1.19  
changed lines
  Added in v.1.19.2.1

savannah-hackers-public@gnu.org
ViewVC Help
Powered by ViewVC 1.1.26