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) |
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 |
|
|
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)) |
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 |
?. ?_) |
?. ?_) |
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)) |
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.")))) |
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. |
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)))))) |
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))) |