lisp/mail/uce.el

37 ;; buffer is a UCE, will setup *mail* buffer in the following way: it
51 ;; Then we put template into buffer (customizable message that
54 ;; Then buffer is left for editing.
59 ;; message into *mail* buffer headers like Received: (not really
96 ;; (setq uce-mail-reader 'gnus)
102 ;; uce-message-text is template that will be inserted into buffer.  It
108 ;; contents are inserted into buffer.
118 (defvar gnus-original-article-buffer)
119 (defvar mail-reply-buffer)
134 Choose from: `gnus', `rmail'."
135   :type '(choice (const gnus) (const rmail))
182   "This is the text that `uce-reply-to-uce' command will put in reply buffer.
223 buffer with default To: to the sender, his postmaster, his abuse@
226   (let ((message-buffer
227 	 (cond ((eq uce-mail-reader 'gnus) gnus-original-article-buffer)
233     (or (get-buffer message-buffer)
234 	(error (concat "No buffer " message-buffer ", cannot find UCE")))
235     (switch-to-buffer message-buffer)
257       (setq mail-reply-buffer nil)
258       (cond ((eq uce-mail-reader 'gnus)
271       (switch-to-buffer "*mail*")
272       (erase-buffer)
286       (cond ((eq uce-mail-reader 'gnus)
311       (if (string-match "\\." (buffer-substring temp (point)))
313 			   to (buffer-substring temp (point)))))
327 	    (if (string-match "\\." (buffer-substring temp (point)))
329 				 to (buffer-substring temp (point)))))))
330       (cond ((eq uce-mail-reader 'gnus)
339       (if (eq uce-mail-reader 'gnus)
383       (or to (set-buffer-modified-p nil))
384       ;; Run hooks before we leave buffer for editing.  Reasonable usage
390   "Insert text of the usual reply to UCE into current buffer."