(const :tag "Ask" ask))
:group 'gnus-agent)
+(defcustom gnus-agent-mark-unread-after-downloaded t
+ "Indicate whether to mark articles unread after downloaded."
+ :version "21.1"
+ :type 'boolean
+ :group 'gnus-agent)
+
+(defcustom gnus-agent-download-marks '(download)
+ "Marks for downloading."
+ :version "21.1"
+ :type '(repeat (symbol :tag "Mark"))
+ :group 'gnus-agent)
+
;;; Internal variables
(defvar gnus-agent-history-buffers nil)
["Mark as downloadable" gnus-agent-mark-article t]
["Unmark as downloadable" gnus-agent-unmark-article t]
["Toggle mark" gnus-agent-toggle-mark t]
- ["Fetch downloadable" gnus-aget-summary-fetch-group t]
+ ["Fetch downloadable" gnus-agent-summary-fetch-group t]
["Catchup undownloaded" gnus-agent-catchup t]))))
(defvar gnus-agent-server-mode-map (make-sparse-keymap))
(progn
(setq gnus-plugged plugged)
(gnus-run-hooks 'gnus-agent-plugged-hook)
- (setcar (cdr gnus-agent-mode-status)
+ (setcar (cdr gnus-agent-mode-status)
(gnus-agent-make-mode-line-string " Plugged"
'mouse-2
'gnus-agent-toggle-plugged))
(gnus-agent-close-connections)
(setq gnus-plugged plugged)
(gnus-run-hooks 'gnus-agent-unplugged-hook)
- (setcar (cdr gnus-agent-mode-status)
+ (setcar (cdr gnus-agent-mode-status)
(gnus-agent-make-mode-line-string " Unplugged"
'mouse-2
'gnus-agent-toggle-plugged)))
(setq gnus-plugged t)
(gnus))
+;;;###autoload
+(defun gnus-slave-unplugged (&optional arg)
+ "Read news as a slave unplugged."
+ (interactive "P")
+ (setq gnus-plugged nil)
+ (gnus arg nil 'slave))
+
;;;###autoload
(defun gnus-agentize ()
"Allow Gnus to be an offline newsreader.
(push article gnus-newsgroup-undownloaded))
(setq gnus-newsgroup-undownloaded
(delq article gnus-newsgroup-undownloaded))
- (push article gnus-newsgroup-downloadable))
+ (setq gnus-newsgroup-downloadable
+ (gnus-add-to-sorted-list gnus-newsgroup-downloadable article)))
(gnus-summary-update-mark
(if unmark gnus-undownloaded-mark gnus-downloadable-mark)
'unread)))
(dolist (article articles)
(setq gnus-newsgroup-downloadable
(delq article gnus-newsgroup-downloadable))
- (gnus-summary-mark-article article gnus-unread-mark))))
+ (if gnus-agent-mark-unread-after-downloaded
+ (gnus-summary-mark-article article gnus-unread-mark)))))
(when (and (not state)
gnus-plugged)
(gnus-agent-toggle-plugged nil)))))
(goto-char (point-min))
(when (re-search-forward
(concat "^" (regexp-quote group) " ") nil t)
- (save-excursion
+ (save-excursion
(read (current-buffer)) ;; max
(setq oactive-min (read (current-buffer)))) ;; min
(gnus-delete-line))
(goto-char (match-end 0)))
(gnus-agent-crosspost crosses (caar pos))))
(goto-char (point-min))
- (if (not (re-search-forward
+ (if (not (re-search-forward
"^Message-ID: *<\\([^>\n]+\\)>" nil t))
(setq id "No-Message-ID-in-article")
(setq id (buffer-substring (match-beginning 1) (match-end 1))))
(setq articles (sort (gnus-uncompress-sequence articles) '<))
;; Remove known articles.
(when (gnus-agent-load-alist group)
- (setq articles (gnus-sorted-intersection
+ (setq articles (gnus-list-range-intersection
articles
- (gnus-uncompress-range
+ (list
(cons (1+ (caar (last gnus-agent-article-alist)))
(cdr (gnus-active group)))))))
;; Fetch them.
(when articles
(gnus-message 7 "Fetching headers for %s..." group)
(save-excursion
- (set-buffer nntp-server-buffer)
- (unless (eq 'nov (gnus-retrieve-headers articles group))
- (nnvirtual-convert-headers))
- ;; Save these headers for later processing.
- (copy-to-buffer gnus-agent-overview-buffer (point-min) (point-max))
+ (set-buffer nntp-server-buffer)
+ (unless (eq 'nov (gnus-retrieve-headers articles group))
+ (nnvirtual-convert-headers))
+ ;; Save these headers for later processing.
+ (copy-to-buffer gnus-agent-overview-buffer (point-min) (point-max))
(when (file-exists-p file)
(gnus-agent-braid-nov group articles file))
(let ((coding-system-for-write
articles))))
(defsubst gnus-agent-copy-nov-line (article)
- (let (b e)
+ (let (art b e)
(set-buffer gnus-agent-overview-buffer)
- (unless (eobp)
+ (while (and (not (eobp))
+ (< (setq art (read (current-buffer))) article))
+ (forward-line 1))
+ (beginning-of-line)
+ (if (or (eobp)
+ (not (eq article art)))
+ (set-buffer nntp-server-buffer)
(setq b (point))
- (if (eq article (read (current-buffer)))
- (setq e (progn (forward-line 1) (point)))
- (progn
- (beginning-of-line)
- (setq e b)))
+ (setq e (progn (forward-line 1) (point)))
(set-buffer nntp-server-buffer)
(insert-buffer-substring gnus-agent-overview-buffer b e))))
(defun gnus-agent-braid-nov (group articles file)
- (set-buffer gnus-agent-overview-buffer)
- (goto-char (point-min))
- (set-buffer nntp-server-buffer)
- (erase-buffer)
- (nnheader-insert-file-contents file)
- (goto-char (point-max))
- (if (or (= (point-min) (point-max))
- (progn
- (forward-line -1)
- (< (read (current-buffer)) (car articles))))
- ;; We have only headers that are after the older headers,
- ;; so we just append them.
- (progn
- (goto-char (point-max))
- (insert-buffer-substring gnus-agent-overview-buffer))
- ;; We do it the hard way.
- (nnheader-find-nov-line (car articles))
- (gnus-agent-copy-nov-line (car articles))
- (pop articles)
- (while (and articles
- (not (eobp)))
- (while (and (not (eobp))
- (< (read (current-buffer)) (car articles)))
- (forward-line 1))
- (beginning-of-line)
- (unless (eobp)
- (gnus-agent-copy-nov-line (car articles))
- (setq articles (cdr articles))))
+ (let (start last)
+ (set-buffer gnus-agent-overview-buffer)
+ (goto-char (point-min))
(set-buffer nntp-server-buffer)
+ (erase-buffer)
+ (nnheader-insert-file-contents file)
+ (goto-char (point-max))
+ (unless (or (= (point-min) (point-max))
+ (progn
+ (forward-line -1)
+ (< (setq last (read (current-buffer))) (car articles))))
+ ;; We do it the hard way.
+ (nnheader-find-nov-line (car articles))
+ (gnus-agent-copy-nov-line (pop articles))
+ (while (and articles
+ (not (eobp)))
+ (while (and (not (eobp))
+ (< (read (current-buffer)) (car articles)))
+ (forward-line 1))
+ (beginning-of-line)
+ (unless (eobp)
+ (gnus-agent-copy-nov-line (pop articles)))))
+ ;; Copy the rest lines
+ (set-buffer nntp-server-buffer)
+ (goto-char (point-max))
(when articles
- (let (b e)
+ (when last
(set-buffer gnus-agent-overview-buffer)
- (setq b (point)
- e (point-max))
(while (and (not (eobp))
- (<= (read (current-buffer)) (car articles)))
- (forward-line 1)
- (setq b (point)))
- (set-buffer nntp-server-buffer)
- (insert-buffer-substring gnus-agent-overview-buffer b e)))))
+ (<= (read (current-buffer)) last))
+ (forward-line 1))
+ (beginning-of-line)
+ (setq start (point))
+ (set-buffer nntp-server-buffer))
+ (insert-buffer-substring gnus-agent-overview-buffer start))))
(defun gnus-agent-load-alist (group &optional dir)
"Load the article-state alist for GROUP."
(when arts
(gnus-agent-fetch-articles group arts)))
;; Perhaps we have some additional articles to fetch.
- (setq arts (assq 'download (gnus-info-marks
- (setq info (gnus-get-info group)))))
- (when (cdr arts)
- (gnus-message 8 "Agent is downloading marked articles...")
- (gnus-agent-fetch-articles
- group (gnus-uncompress-range (cdr arts)))
- (setq marks (delq arts (gnus-info-marks info)))
- (gnus-info-set-marks info marks)
- (gnus-dribble-enter
- (concat "(gnus-group-set-info '"
- (gnus-prin1-to-string info)
- ")")))))
+ (dolist (mark gnus-agent-download-marks)
+ (setq arts (assq mark (gnus-info-marks
+ (setq info (gnus-get-info group)))))
+ (when (cdr arts)
+ (gnus-message 8 "Agent is downloading marked articles...")
+ (gnus-agent-fetch-articles
+ group (gnus-uncompress-range (cdr arts)))
+ (when (eq mark 'download)
+ (setq marks (delq arts (gnus-info-marks info)))
+ (gnus-info-set-marks info marks)
+ (gnus-dribble-enter
+ (concat "(gnus-group-set-info '"
+ (gnus-prin1-to-string info)
+ ")")))))))
;;;
;;; Agent Category Mode
(defun gnus-get-predicate (predicate)
"Return the predicate for CATEGORY."
(or (cdr (assoc predicate gnus-category-predicate-cache))
- (cdar (push (cons predicate
- (gnus-category-make-function predicate))
- gnus-category-predicate-cache))))
+ (let ((func (gnus-category-make-function predicate)))
+ (setq gnus-category-predicate-cache
+ (nconc gnus-category-predicate-cache
+ (list (cons predicate func))))
+ func)))
(defun gnus-group-category (group)
"Return the category GROUP belongs to."
(erase-buffer)
(let ((nnheader-file-coding-system
gnus-agent-file-coding-system))
- (nnheader-insert-file-contents file))
+ (nnheader-insert-nov-file file (car articles)))
(nnheader-find-nov-line (car articles))
(while (not (eobp))
(when (looking-at "[0-9]")
(push (read (current-buffer)) cached-articles))
(forward-line 1))
- (setq cached-articles (sort cached-articles '<))))
- (if (setq uncached-articles
- (gnus-set-difference articles cached-articles))
+ (setq cached-articles (nreverse cached-articles))))
+ (if (setq uncached-articles
+ (gnus-sorted-difference articles cached-articles))
(progn
(set-buffer nntp-server-buffer)
(erase-buffer)
(let (gnus-agent-cache)
- (unless (eq 'nov
- (gnus-retrieve-headers
+ (unless (eq 'nov
+ (gnus-retrieve-headers
uncached-articles group fetch-old))
(nnvirtual-convert-headers)))
(set-buffer gnus-agent-overview-buffer)
(let ((nnheader-file-coding-system
gnus-agent-file-coding-system))
(nnheader-insert-file-contents file)))
- (goto-char (point-min))
+ (goto-char (point-min))
(while (not (eobp))
(while (not (or (eobp) (looking-at "[0-9]")))
(setq point (point))
(while (and arts (> n (car arts)))
(message "Regenerating NOV %s %d..." group (car arts))
(mm-with-unibyte-buffer
- (nnheader-insert-file-contents
+ (nnheader-insert-file-contents
(concat dir (number-to-string (car arts))))
(goto-char (point-min))
(if (search-forward "\n\n" nil t)
(unless clean
(gnus-agent-load-alist group))
(setq alist (sort alist 'car-less-than-car))
- (setq gnus-agent-article-alist (sort gnus-agent-article-alist
+ (setq gnus-agent-article-alist (sort gnus-agent-article-alist
'car-less-than-car))
(while (and alist gnus-agent-article-alist)
- (cond
+ (cond
((< (caar alist) (caar gnus-agent-article-alist))
(push (pop alist) new-alist))
((> (caar alist) (caar gnus-agent-article-alist))
(push (list (car (pop gnus-agent-article-alist))) new-alist))
- (t
+ (t
(pop gnus-agent-article-alist)
(while (and gnus-agent-article-alist
(= (caar alist) (caar gnus-agent-article-alist)))
(if (not (re-search-forward "^Message-ID: *<\\([^>\n]+\\)>" nil t))
(setq id "No-Message-ID-in-article")
(setq id (buffer-substring (match-beginning 1) (match-end 1))))
- (gnus-agent-enter-history
- id (list (cons group article))
+ (gnus-agent-enter-history
+ id (list (cons group article))
(time-to-days (nth 5 (file-attributes file)))))))
;;;###autoload
(message "Regenerating Gnus agent files...")
(dolist (gnus-command-method gnus-agent-covered-methods)
(let ((active-file (gnus-agent-lib-file "active"))
- history-hashtb active-hashtb active-changed
+ history-hashtb active-hashtb active-changed
history-changed point)
(gnus-make-directory (file-name-directory active-file))
(if clean
(goto-char (point-min))
(forward-line 1)
(while (not (eobp))
- (if (looking-at
+ (if (looking-at
"\\([^\t\n]+\\)\t[0-9]+\t\\([^ \n]+\\) \\([0-9]+\\)")
(progn
- (unless (string= (match-string 1)
+ (unless (string= (match-string 1)
"last-header-fetched-for-session")
- (gnus-sethash (match-string 2)
+ (gnus-sethash (match-string 2)
(cons (string-to-number (match-string 3))
(gnus-gethash-safe (match-string 2)
history-hashtb))
n)
(gnus-sethash group arts history-hashtb)
(while (and arts gnus-agent-article-alist)
- (cond
+ (cond
((> (car arts) (caar gnus-agent-article-alist))
(when (cdar gnus-agent-article-alist)
- (gnus-agent-regenerate-history
+ (gnus-agent-regenerate-history
group (caar gnus-agent-article-alist))
(setq history-changed t))
(setq n (car (pop gnus-agent-article-alist)))
- (while (and gnus-agent-article-alist
+ (while (and gnus-agent-article-alist
(= n (caar gnus-agent-article-alist)))
(pop gnus-agent-article-alist)))
((< (car arts) (caar gnus-agent-article-alist))
(pop arts)))
(t
(setq n (car (pop gnus-agent-article-alist)))
- (while (and gnus-agent-article-alist
+ (while (and gnus-agent-article-alist
(= n (caar gnus-agent-article-alist)))
(pop gnus-agent-article-alist))
(setq n (pop arts))
(pop arts)))))
(while gnus-agent-article-alist
(when (cdar gnus-agent-article-alist)
- (gnus-agent-regenerate-history
+ (gnus-agent-regenerate-history
group (caar gnus-agent-article-alist))
(setq history-changed t))
(pop gnus-agent-article-alist))))
(when history-changed
- (message "Regenerate the history file of %s:%s"
+ (message "Regenerate the history file of %s:%s"
(car gnus-command-method)
(cadr gnus-command-method))
(gnus-agent-save-history))
(gnus-agent-close-history)
(when active-changed
- (message "Regenerate %s" active-file)
+ (message "Regenerate %s" active-file)
(let ((nnmail-active-file-coding-system gnus-agent-file-coding-system))
(gnus-write-active-file active-file active-hashtb)))))
(message "Regenerating Gnus agent files...done"))
(interactive (list t))
(dolist (server gnus-opened-servers)
(when (eq (nth 1 server) 'offline)
- (if (if (eq force 'ask)
- (gnus-y-or-n-p
+ (if (if (eq force 'ask)
+ (gnus-y-or-n-p
(format "Switch %s:%s into online status? "
(caar server) (cadar server)))
force)
projects / gnus / blobdiff