Mercurial > emacs

comparison lisp/gnus/gnus-sum.el @ 110583:b6d2a63ad993

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
Merge changes made in Gnus trunk. nnimap.el: Implement partial IMAP article fetch. nnimap.el: Have nnimap not update the infos if it can't get info from the server. Implement functions for showing the complete articles. gnus-int.el (gnus-open-server): Don't query whether to go offline -- just do it. gnus-art.el (gnus-mime-delete-part): Fix plural for "byte" when there isn't a single byte. nndoc.el (nndoc-type-alist): Move mime-parts after mbox. Suggested by Jay Berkenbilt. mm-decode.el (mm-save-part): Allow saving to other directories the normal Emacs way. gnus-html.el (gnus-html-rescale-image): Use our defalias gnus-window-inside-pixel-edges. gnus-srvr.el (gnus-server-copy-server): Add documentation. gnus.texi (Using IMAP): Document the new nnimap. nnimap.el (nnimap-wait-for-response): Search further when we're not using streaming. gnus-int.el (gnus-check-server): Say what the error was when opening failed. nnheader.el (nnheader-get-report-string): New function. gnus-int.el (gnus-check-server): Use report-string. nnimap.el (nnimap-open-connection): Add more error reporting when nnimap fails early. gnus-start.el (gnus-get-unread-articles): Don't try to open failed servers twice. nnimap.el (nnimap-wait-for-response): Reversed logic in the nnimap-streaming test. gnus-art.el: Removed CTAN button stuff, which I don't think is very relevant any more. Remove NoCeM support, since nobody seems to use it any more. Remove earcon and gnus-audio. gnus.el (gnus): Silence gnus-load message. gnus-group.el (gnus-read-ephemeral-bug-group): Add the bug email address to the To list for easier response. gnus.texi (Connecting to an IMAP Server): Show how to use as primary method instead of secondary.
author Katsumi Yamaoka <yamaoka@jpl.org>
date Sun, 26 Sep 2010 04:03:19 +0000
parents f567b340d004
children 677b6dea1d61
comparison
equal deleted inserted replaced
110582:aa7656773a38 110583:b6d2a63ad993
2045 ">" gnus-summary-end-of-article 2045 ">" gnus-summary-end-of-article
2046 "b" gnus-summary-beginning-of-article 2046 "b" gnus-summary-beginning-of-article
2047 "e" gnus-summary-end-of-article 2047 "e" gnus-summary-end-of-article
2048 "^" gnus-summary-refer-parent-article 2048 "^" gnus-summary-refer-parent-article
2049 "r" gnus-summary-refer-parent-article 2049 "r" gnus-summary-refer-parent-article
2050 "C" gnus-summary-show-complete-article
2050 "D" gnus-summary-enter-digest-group 2051 "D" gnus-summary-enter-digest-group
2051 "R" gnus-summary-refer-references 2052 "R" gnus-summary-refer-references
2052 "T" gnus-summary-refer-thread 2053 "T" gnus-summary-refer-thread
2053 "g" gnus-summary-show-article 2054 "g" gnus-summary-show-article
2054 "s" gnus-summary-isearch-article 2055 "s" gnus-summary-isearch-article
8643 (not (numberp gnus-fetch-old-headers)) 8644 (not (numberp gnus-fetch-old-headers))
8644 (not (eq gnus-fetch-old-headers 'invisible)) 8645 (not (eq gnus-fetch-old-headers 'invisible))
8645 (null gnus-summary-expunge-below) 8646 (null gnus-summary-expunge-below)
8646 (not (eq gnus-build-sparse-threads 'some)) 8647 (not (eq gnus-build-sparse-threads 'some))
8647 (not (eq gnus-build-sparse-threads 'more)) 8648 (not (eq gnus-build-sparse-threads 'more))
8648 (null gnus-thread-expunge-below) 8649 (null gnus-thread-expunge-below)))
8649 (not gnus-use-nocem)))
8650 (push gnus-newsgroup-limit gnus-newsgroup-limits) 8650 (push gnus-newsgroup-limit gnus-newsgroup-limits)
8651 (setq gnus-newsgroup-limit nil) 8651 (setq gnus-newsgroup-limit nil)
8652 (mapatoms 8652 (mapatoms
8653 (lambda (node) 8653 (lambda (node)
8654 (unless (car (symbol-value node)) 8654 (unless (car (symbol-value node))
8727 (push (cons number gnus-low-score-mark) 8727 (push (cons number gnus-low-score-mark)
8728 gnus-newsgroup-reads))) 8728 gnus-newsgroup-reads)))
8729 t) 8729 t)
8730 ;; Do the `display' group parameter. 8730 ;; Do the `display' group parameter.
8731 (and gnus-newsgroup-display 8731 (and gnus-newsgroup-display
8732 (not (funcall gnus-newsgroup-display))) 8732 (not (funcall gnus-newsgroup-display)))))
8733 ;; Check NoCeM things.
8734 (when (and gnus-use-nocem
8735 (gnus-nocem-unwanted-article-p
8736 (mail-header-id (car thread))))
8737 (setq gnus-newsgroup-unreads
8738 (delq number gnus-newsgroup-unreads))
8739 t)))
8740 ;; Nope, invisible article. 8733 ;; Nope, invisible article.
8741 0 8734 0
8742 ;; Ok, this article is to be visible, so we add it to the limit 8735 ;; Ok, this article is to be visible, so we add it to the limit
8743 ;; and return 1. 8736 ;; and return 1.
8744 (push number gnus-newsgroup-limit) 8737 (push number gnus-newsgroup-limit)
9354 (save-excursion 9347 (save-excursion
9355 (if ps-print-color-p 9348 (if ps-print-color-p
9356 (ps-spool-buffer-with-faces) 9349 (ps-spool-buffer-with-faces)
9357 (ps-spool-buffer))))) 9350 (ps-spool-buffer)))))
9358 (kill-buffer buffer)))) 9351 (kill-buffer buffer))))
9352
9353 (defun gnus-summary-show-complete-article ()
9354 "Show a complete version of the current article.
9355 This is only useful if you're looking at a partial version of the
9356 article currently."
9357 (interactive)
9358 (let ((gnus-keep-backlog nil)
9359 (gnus-use-cache nil)
9360 (gnus-agent nil)
9361 (gnus-fetch-partial-articles nil))
9362 (gnus-flush-original-article-buffer)
9363 (gnus-summary-show-article)))
9359 9364
9360 (defun gnus-summary-show-article (&optional arg) 9365 (defun gnus-summary-show-article (&optional arg)
9361 "Force redisplaying of the current article. 9366 "Force redisplaying of the current article.
9362 If ARG (the prefix) is a number, show the article with the charset 9367 If ARG (the prefix) is a number, show the article with the charset
9363 defined in `gnus-summary-show-article-charset-alist', or the charset 9368 defined in `gnus-summary-show-article-charset-alist', or the charset