/[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.21 by zsh, Thu Jan 16 01:19:02 2003 UTC revision 1.22 by lektu, Tue Feb 4 13:06:38 2003 UTC
# 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 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.21  
changed lines
  Added in v.1.22

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