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

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

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

revision 1.6 by zsh, Thu Jan 16 01:19:02 2003 UTC revision 1.7 by lektu, Tue Feb 4 13:06:38 2003 UTC
# Line 393  be a select method." Line 393  be a select method."
393    (save-restriction    (save-restriction
394      (message-narrow-to-headers)      (message-narrow-to-headers)
395      (let* ((gcc (mail-fetch-field "gcc" nil t))      (let* ((gcc (mail-fetch-field "gcc" nil t))
396             (methods (and gcc             (methods (and gcc
397                           (mapcar 'gnus-inews-group-method                           (mapcar 'gnus-inews-group-method
398                                   (message-unquote-tokens                                   (message-unquote-tokens
399                                    (message-tokenize-header                                    (message-tokenize-header
400                                     gcc " ,")))))                                     gcc " ,")))))
401             covered)             covered)
402        (while (and (not covered) methods)        (while (and (not covered) methods)
# Line 513  be a select method." Line 513  be a select method."
513    (when (or (and gnus-agent-synchronize-flags    (when (or (and gnus-agent-synchronize-flags
514                   (not (eq gnus-agent-synchronize-flags 'ask)))                   (not (eq gnus-agent-synchronize-flags 'ask)))
515              (and (eq gnus-agent-synchronize-flags 'ask)              (and (eq gnus-agent-synchronize-flags 'ask)
516                   (gnus-y-or-n-p (format "Synchronize flags on server `%s'? "                   (gnus-y-or-n-p (format "Synchronize flags on server `%s'? "
517                                          (cadr method)))))                                          (cadr method)))))
518      (gnus-agent-synchronize-flags-server method)))      (gnus-agent-synchronize-flags-server method)))
519    
# Line 702  the actual number of articles toggled is Line 702  the actual number of articles toggled is
702        (gnus-make-directory (file-name-directory file))        (gnus-make-directory (file-name-directory file))
703        (with-temp-file file        (with-temp-file file
704          ;; Emacs got problem to match non-ASCII group in multibyte buffer.          ;; Emacs got problem to match non-ASCII group in multibyte buffer.
705          (mm-disable-multibyte)          (mm-disable-multibyte)
706          (when (file-exists-p file)          (when (file-exists-p file)
707            (nnheader-insert-file-contents file))            (nnheader-insert-file-contents file))
708          (goto-char (point-min))          (goto-char (point-min))
# Line 730  the actual number of articles toggled is Line 730  the actual number of articles toggled is
730      (nnheader-translate-file-chars      (nnheader-translate-file-chars
731       (nnheader-replace-chars-in-string       (nnheader-replace-chars-in-string
732        (nnheader-replace-duplicate-chars-in-string        (nnheader-replace-duplicate-chars-in-string
733         (nnheader-replace-chars-in-string         (nnheader-replace-chars-in-string
734          (gnus-group-real-name group)          (gnus-group-real-name group)
735          ?/ ?_)          ?/ ?_)
736         ?. ?_)         ?. ?_)
# Line 847  the actual number of articles toggled is Line 847  the actual number of articles toggled is
847            (with-temp-buffer            (with-temp-buffer
848              (let (article)              (let (article)
849                (while (setq article (pop articles))                (while (setq article (pop articles))
850                  (when (or                  (when (or
851                         (gnus-backlog-request-article group article                         (gnus-backlog-request-article group article
852                                                       nntp-server-buffer)                                                       nntp-server-buffer)
853                         (gnus-request-article article group))                         (gnus-request-article article group))
854                    (goto-char (point-max))                    (goto-char (point-max))
# Line 1103  the actual number of articles toggled is Line 1103  the actual number of articles toggled is
1103                    (while (setq group (pop groups))                    (while (setq group (pop groups))
1104                      (when (<= (gnus-group-level group) gnus-agent-handle-level)                      (when (<= (gnus-group-level group) gnus-agent-handle-level)
1105                        (gnus-agent-fetch-group-1 group gnus-command-method))))))                        (gnus-agent-fetch-group-1 group gnus-command-method))))))
1106            (error            (error
1107             (unless (funcall gnus-agent-confirmation-function             (unless (funcall gnus-agent-confirmation-function
1108                              (format "Error (%s).  Continue? " err))                              (format "Error (%s).  Continue? " err))
1109               (error "Cannot fetch articles into the Gnus agent")))               (error "Cannot fetch articles into the Gnus agent")))
1110            (quit            (quit
1111             (unless (funcall gnus-agent-confirmation-function             (unless (funcall gnus-agent-confirmation-function
1112                              (format "Quit (%s).  Continue? " err))                              (format "Quit (%s).  Continue? " err))
1113               (signal 'quit "Cannot fetch articles into the Gnus agent."))))               (signal 'quit "Cannot fetch articles into the Gnus agent."))))
# Line 1138  the actual number of articles toggled is Line 1138  the actual number of articles toggled is
1138                   (setq gnus-newsgroup-dependencies                   (setq gnus-newsgroup-dependencies
1139                         (make-vector (length articles) 0))                         (make-vector (length articles) 0))
1140                   (setq gnus-newsgroup-headers                   (setq gnus-newsgroup-headers
1141                         (gnus-get-newsgroup-headers-xover articles nil nil                         (gnus-get-newsgroup-headers-xover articles nil nil
1142                                                           group))                                                           group))
1143                   ;; `gnus-agent-overview-buffer' may be killed for                   ;; `gnus-agent-overview-buffer' may be killed for
1144                   ;; timeout reason.  If so, recreate it.                   ;; timeout reason.  If so, recreate it.
# Line 1532  The following commands are available: Line 1532  The following commands are available:
1532          (when (file-exists-p (gnus-agent-lib-file "active"))          (when (file-exists-p (gnus-agent-lib-file "active"))
1533            (with-temp-buffer            (with-temp-buffer
1534              (nnheader-insert-file-contents (gnus-agent-lib-file "active"))              (nnheader-insert-file-contents (gnus-agent-lib-file "active"))
1535              (gnus-active-to-gnus-format              (gnus-active-to-gnus-format
1536               gnus-command-method               gnus-command-method
1537               (setq orig (gnus-make-hashtable               (setq orig (gnus-make-hashtable
1538                           (count-lines (point-min) (point-max))))))                           (count-lines (point-min) (point-max))))))
# Line 1598  The following commands are available: Line 1598  The following commands are available:
1598                                   (or (not (numberp                                   (or (not (numberp
1599                                             (setq art (read (current-buffer)))))                                             (setq art (read (current-buffer)))))
1600                                       (< art article)))                                       (< art article)))
1601                         (if (and (numberp art)                         (if (and (numberp art)
1602                                  (file-exists-p                                  (file-exists-p
1603                                   (gnus-agent-article-name                                   (gnus-agent-article-name
1604                                    (number-to-string art) group)))                                    (number-to-string art) group)))

Legend:
Removed from v.1.6  
changed lines
  Added in v.1.7

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