comparison lisp/gnus/gnus-sum.el @ 111401:733acab855e4

Merge changes made in Gnus trunk. mm-decode.el (mm-save-part): Put the entire path in the `M-n' slot. nnimap.el (nnimap-find-article-by-message-id): Don't EXAMINE a group if it's already selected. gnus.texi (Customizing the IMAP Connection): Document `nnimap-expunge' and remove `nnimap-expunge-inbox' from example. gnus.texi (Customizing the IMAP Connection): Remove nnir mention, since that works by default. gnus-sum.el (gnus-summary-show-article): Take `t' as the arg to mean "raw". gnus-html.el (gnus-html-browse-url): Implement mailto: URLs. shr.el (shr-browse-url): Implement mailto: URLs. nnir.el, gnus-sum.el: Improve thread-referral. message.el (message-send-mail): Use the value of message-courtesy-message from the message buffer.

111400:17d49dad0c8b

      (let ((case-fold-search nil))
	(goto-char (point-min))
	(while (not (eobp))
	  (ignore-errors
	    (setq article (read (current-buffer))
		  header (gnus-nov-parse-line article dependencies)))
	  (when header
	    (with-current-buffer gnus-summary-buffer
	      (push header gnus-newsgroup-headers)
	      (if (memq (setq article (mail-header-number header))
			gnus-newsgroup-unselected)

  "Display all the hidden articles that is in the thread with ID in it.
When called interactively, ID is the Message-ID of the current
article."
  (interactive (list (mail-header-id (gnus-summary-article-header))))
  (let ((articles (gnus-articles-in-thread
		   (gnus-id-to-thread (gnus-root-id id)))))
    (prog1
	(gnus-summary-limit (nconc articles gnus-newsgroup-limit))
      (gnus-summary-limit-include-matching-articles
       "subject"
       (regexp-quote (gnus-simplify-subject-re

fetch LIMIT (the numerical prefix) old headers. If LIMIT is nil
fetch what's specified by the `gnus-refer-thread-limit'
variable."
  (interactive "P")
  (let ((id (mail-header-id (gnus-summary-article-header)))
	(gnus-summary-ignore-duplicates t)
	(limit (if limit (prefix-numeric-value limit)
		 gnus-refer-thread-limit)))
    (if  (gnus-check-backend-function 'request-thread gnus-newsgroup-name)
	(setq gnus-newsgroup-headers
	      (gnus-merge 'list

	  (gnus-retrieve-headers (list gnus-newsgroup-end)
				 gnus-newsgroup-name limit)
	  (gnus-message 5 "Fetching headers for %s...done"
			gnus-newsgroup-name))))
    (when (eq gnus-headers-retrieved-by 'nov)
      (gnus-build-all-threads))
    (gnus-summary-limit-include-thread id)))

(defun gnus-summary-refer-article (message-id)
  "Fetch an article specified by MESSAGE-ID."

	(when (gnus-summary-goto-subject (cdr gnus-article-current) nil t)
	  (gnus-summary-update-secondary-mark (cdr gnus-article-current))))))
   ((not arg)
    ;; Select the article the normal way.
    (gnus-summary-select-article nil 'force))
   ((equal arg '(16))
    ;; C-u C-u g
    ;; We have to require this here to make sure that the following
    ;; dynamic binding isn't shadowed by autoloading.
    (require 'gnus-async)
    (require 'gnus-art)

111401:733acab855e4

      (let ((case-fold-search nil))
	(goto-char (point-min))
	(while (not (eobp))
	  (ignore-errors
	    (setq article (read (current-buffer))
		  header (gnus-nov-parse-line article dependencies t)))
	  (when header
	    (with-current-buffer gnus-summary-buffer
	      (push header gnus-newsgroup-headers)
	      (if (memq (setq article (mail-header-number header))
			gnus-newsgroup-unselected)

  "Display all the hidden articles that is in the thread with ID in it.
When called interactively, ID is the Message-ID of the current
article."
  (interactive (list (mail-header-id (gnus-summary-article-header))))
  (let ((articles (gnus-articles-in-thread
		   (gnus-id-to-thread (gnus-root-id id))))
	;;we REALLY want the whole thread---this prevents cut-threads
	;;from removing the thread we want to include.
	(gnus-fetch-old-headers nil)
	(gnus-build-sparse-threads nil))
    (prog1
	(gnus-summary-limit (nconc articles gnus-newsgroup-limit))
      (gnus-summary-limit-include-matching-articles
       "subject"
       (regexp-quote (gnus-simplify-subject-re

fetch LIMIT (the numerical prefix) old headers. If LIMIT is nil
fetch what's specified by the `gnus-refer-thread-limit'
variable."
  (interactive "P")
  (let ((id (mail-header-id (gnus-summary-article-header)))
	(subject (gnus-simplify-subject
		  (mail-header-subject (gnus-summary-article-header))))
	(refs (split-string (or (mail-header-references
				 (gnus-summary-article-header)) "")))
	(gnus-summary-ignore-duplicates t)
	(gnus-inhibit-demon t)
	(gnus-read-all-available-headers t)
	(limit (if limit (prefix-numeric-value limit)
		 gnus-refer-thread-limit)))
    (if  (gnus-check-backend-function 'request-thread gnus-newsgroup-name)
	(setq gnus-newsgroup-headers
	      (gnus-merge 'list

	  (gnus-retrieve-headers (list gnus-newsgroup-end)
				 gnus-newsgroup-name limit)
	  (gnus-message 5 "Fetching headers for %s...done"
			gnus-newsgroup-name))))
    (when (eq gnus-headers-retrieved-by 'nov)
      ;; might as well restrict the headers to the relevant ones. this
      ;; should save time when building threads.
      (with-current-buffer nntp-server-buffer
	(goto-char (point-min))
	(keep-lines (regexp-opt (append refs (list id subject)))))
      (gnus-build-all-threads))
    (gnus-summary-limit-include-thread id)))

(defun gnus-summary-refer-article (message-id)
  "Fetch an article specified by MESSAGE-ID."

	(when (gnus-summary-goto-subject (cdr gnus-article-current) nil t)
	  (gnus-summary-update-secondary-mark (cdr gnus-article-current))))))
   ((not arg)
    ;; Select the article the normal way.
    (gnus-summary-select-article nil 'force))
   ((or (equal arg '(16))
	(eq arg t))
    ;; C-u C-u g
    ;; We have to require this here to make sure that the following
    ;; dynamic binding isn't shadowed by autoloading.
    (require 'gnus-async)
    (require 'gnus-art)