Mercurial > emacs

comparison lisp/gnus/gnus-sum.el @ 111138:11259a64bfc0

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
gnus-sum.el (gnus-summary-select-article): Make sure we have the original article buffer live. gnus-sum.el (gnus-summary-select-article-buffer): Mention gnus-widen-article-buffer. shr.el (shr-tag-object): Added. nnir.el, gnus-group.el: Make nnir work by default. gnus-agent.el (gnus-agent-fetch-group): Don't download stuff if the group isn't covered by the agent. gnus-sum.el (gnus-group-make-articles-read): Propagate marks to the backend for unknown groups. gnus-html.el (gnus-html-prefetch-images): Decode entities before prefetching images.
author Katsumi Yamaoka <yamaoka@jpl.org>
date Sun, 24 Oct 2010 09:55:56 +0000
parents ef2f1f7d574b
children 7b332968b4ae
comparison
equal deleted inserted replaced
111137:1b078a586243 111138:11259a64bfc0
6188 (let* ((num 0) 6188 (let* ((num 0)
6189 (entry (gnus-group-entry group)) 6189 (entry (gnus-group-entry group))
6190 (info (nth 2 entry)) 6190 (info (nth 2 entry))
6191 (active (gnus-active group)) 6191 (active (gnus-active group))
6192 range) 6192 range)
6193 (when entry 6193 (if (not entry)
6194 ;; Group that Gnus doesn't know exists, but still allow the
6195 ;; backend to set marks.
6196 (gnus-request-set-mark
6197 group (list (list (gnus-compress-sequence (sort articles #'<))
6198 'add '(read))))
6199 ;; Normal, subscribed groups.
6194 (setq range (gnus-compute-read-articles group articles)) 6200 (setq range (gnus-compute-read-articles group articles))
6195 (with-current-buffer gnus-group-buffer 6201 (with-current-buffer gnus-group-buffer
6196 (gnus-undo-register 6202 (gnus-undo-register
6197 `(progn 6203 `(progn
6198 (gnus-info-set-marks ',info ',(gnus-info-marks info) t) 6204 (gnus-info-set-marks ',info ',(gnus-info-marks info) t)
6940 (delq 0 (nreverse unread)))) 6946 (delq 0 (nreverse unread))))
6941 6947
6942 ;; Various summary commands 6948 ;; Various summary commands
6943 6949
6944 (defun gnus-summary-select-article-buffer () 6950 (defun gnus-summary-select-article-buffer ()
6945 "Reconfigure windows to show the article buffer." 6951 "Reconfigure windows to show the article buffer.
6952 If `gnus-widen-article-buffer' is set, show only the article
6953 buffer."
6946 (interactive) 6954 (interactive)
6947 (if (not (gnus-buffer-live-p gnus-article-buffer)) 6955 (if (not (gnus-buffer-live-p gnus-article-buffer))
6948 (error "There is no article buffer for this summary buffer") 6956 (error "There is no article buffer for this summary buffer")
6949 (unless (get-buffer-window gnus-article-buffer) 6957 (unless (get-buffer-window gnus-article-buffer)
6950 (gnus-summary-show-article)) 6958 (gnus-summary-show-article))
7582 (or (null gnus-current-article) 7590 (or (null gnus-current-article)
7583 (null gnus-article-current) 7591 (null gnus-article-current)
7584 (null (get-buffer gnus-article-buffer)) 7592 (null (get-buffer gnus-article-buffer))
7585 (not (eq article (cdr gnus-article-current))) 7593 (not (eq article (cdr gnus-article-current)))
7586 (not (equal (car gnus-article-current) 7594 (not (equal (car gnus-article-current)
7587 gnus-newsgroup-name)))) 7595 gnus-newsgroup-name))
7596 (not (buffer-name gnus-original-article-buffer))))
7588 (and (not gnus-single-article-buffer) 7597 (and (not gnus-single-article-buffer)
7589 (or (null gnus-current-article) 7598 (or (null gnus-current-article)
7590 (not (eq gnus-current-article article)))) 7599 (not (eq gnus-current-article article))))
7591 force) 7600 force)
7592 ;; The requested article is different from the current article. 7601 ;; The requested article is different from the current article.