comparison lisp/gnus/gnus-art.el @ 96654:0b339c48424c

Merge from gnus--devo--0 Revision: [e-mail]/emacs--devo--0--patch-1326

96653:5c9cdf4e586a

    ;; Remove headers according to `gnus-saved-headers' or the value
    ;; of the `:headers' property that the saver function might have.
    (let ((gnus-visible-headers
	   (or (symbol-value (get gnus-default-article-saver :headers))
	       gnus-saved-headers gnus-visible-headers))
	  (gnus-article-buffer save-buffer))
      (with-current-buffer save-buffer
	(article-hide-headers 1 t))))
  (save-window-excursion
    (if (not gnus-default-article-saver)
	(error "No default saver is defined")

(put 'gnus-summary-save-in-pipe :decode t)
(put 'gnus-summary-save-in-pipe :headers 'gnus-saved-headers)
(defun gnus-summary-save-in-pipe (&optional command)
  "Pipe this article to subprocess."
  (let ((default (or gnus-summary-pipe-output-default-command
		     gnus-last-shell-command)))
    (unless (stringp command)
      (setq command
	    (if (and (eq command 'default) default)
		default
	      (gnus-read-shell-command

		  "this article"))
	       default))))
    (when (string-equal command "")
      (if default
	  (setq command default)
	(error "A command is required"))))
  (gnus-eval-in-buffer-window gnus-save-article-buffer
    (save-restriction
      (widen)
      (shell-command-on-region (point-min) (point-max) command nil)))
  (setq gnus-summary-pipe-output-default-command command))

(defun gnus-summary-pipe-to-muttprint (&optional command)
  "Pipe this article to muttprint."
  (setq command (read-string
		 "Print using command: " gnus-summary-muttprint-program
		 nil gnus-summary-muttprint-program))
  (let ((gnus-last-shell-command gnus-last-shell-command))
    (gnus-summary-save-in-pipe command)
    (setq gnus-summary-muttprint-program gnus-last-shell-command)))

;;; Article file names when saving.

(defun gnus-capitalize-newsgroup (newsgroup)
  "Capitalize NEWSGROUP name."

96654:0b339c48424c

    ;; Remove headers according to `gnus-saved-headers' or the value
    ;; of the `:headers' property that the saver function might have.
    (let ((gnus-visible-headers
	   (or (symbol-value (get gnus-default-article-saver :headers))
	       gnus-saved-headers gnus-visible-headers))
	  ;; Ignore group parameter.  See `article-hide-headers'.
	  (gnus-summary-buffer nil))
      (with-current-buffer save-buffer
	(article-hide-headers 1 t))))
  (save-window-excursion
    (if (not gnus-default-article-saver)
	(error "No default saver is defined")

(put 'gnus-summary-save-in-pipe :decode t)
(put 'gnus-summary-save-in-pipe :headers 'gnus-saved-headers)
(defun gnus-summary-save-in-pipe (&optional command)
  "Pipe this article to subprocess."
  (let ((save-buffer gnus-save-article-buffer)
	(default (or gnus-summary-pipe-output-default-command
		     gnus-last-shell-command)))
    ;; `gnus-save-article-buffer' should be a buffer containing the article
    ;; contents if this function is called by way of the command
    ;; `gnus-summary-pipe-output'.  OTOH, that the buffer does not exist
    ;; means this function is called independently.
    (unless (gnus-buffer-live-p save-buffer)
      (let ((article (gnus-summary-article-number))
	    (decode (get 'gnus-summary-save-in-pipe :decode)))
	(if article
	    (if (vectorp (gnus-summary-article-header article))
		(save-window-excursion
		  (let ((gnus-display-mime-function
			 (when decode
			   gnus-display-mime-function))
			(gnus-article-prepare-hook
			 (when decode
			   gnus-article-prepare-hook)))
		    (gnus-summary-select-article t t nil article)
		    (gnus-summary-goto-subject article))
		  (insert-buffer-substring
		   (prog1
		       (if decode
			   gnus-article-buffer
			 gnus-original-article-buffer)
		     (setq save-buffer
			   (nnheader-set-temp-buffer " *Gnus Save*"))))
		  ;; Remove unwanted headers.
		  (let ((gnus-visible-headers
			 (or (symbol-value (get gnus-default-article-saver
						:headers))
			     gnus-saved-headers gnus-visible-headers))
			(gnus-summary-buffer nil))
		    (article-hide-headers 1 t)))
	      (error "%d is not a real article" article))
	  (error "No article to pipe"))))
    (unless (stringp command)
      (setq command
	    (if (and (eq command 'default) default)
		default
	      (gnus-read-shell-command

		  "this article"))
	       default))))
    (when (string-equal command "")
      (if default
	  (setq command default)
	(error "A command is required")))
    (gnus-eval-in-buffer-window save-buffer
      (save-restriction
	(widen)
	(shell-command-on-region (point-min) (point-max) command nil)))
    (gnus-kill-buffer save-buffer))
  (setq gnus-summary-pipe-output-default-command command))

(defun gnus-summary-pipe-to-muttprint (&optional command)
  "Pipe this article to muttprint."
  (unless (stringp command)
    (setq command (read-string
		   "Print using command: " gnus-summary-muttprint-program
		   nil gnus-summary-muttprint-program)))
  (let ((gnus-summary-pipe-output-default-command
	 gnus-summary-pipe-output-default-command))
    (gnus-summary-save-in-pipe command))
  (setq gnus-summary-muttprint-program command))

;;; Article file names when saving.

(defun gnus-capitalize-newsgroup (newsgroup)
  "Capitalize NEWSGROUP name."