Re: comments on pgnus-v0.80

[Simon Josefsson <jas@pdc.kth.se>]

SL Baur <steve@xemacs.org> writes:

> * It would be nice to have a preview function as in tm to see what a
>   message looks like before sending it out.  If one already exists, it 
>   should be added to the Message menu.

This is what I use.

Several people has suggested using the draft folder. Has anyone
actually tried that?  I just see MML there, which is not really what I
would call a "preview".

(defun mml-preview (&optional raw)
  "Display current buffer with Gnus, in a new buffer. If raw, don't
highlight the article."
  (interactive "P")
  (let ((buf (current-buffer)))
    (switch-to-buffer (get-buffer-create 
		       (concat (if raw "*Raw MIME preview of "
				 "*MIME preview of ") (buffer-name))))
    (erase-buffer)
    (insert-buffer buf)
    (mml-to-mime)
    (unless raw
      (run-hooks 'gnus-article-decode-hook)
      (let ((gnus-newsgroup-name "dummy"))
	(gnus-article-prepare-display)))
    (fundamental-mode)
    (setq buffer-read-only t)
    (goto-char (point-min))))