From Sriram Karra <karra@cs.utah.edu>.
* gnus.el (gnus-article-unpropagated-mark-lists): Backslash the
open parenthesis.
* mm-view.el (mm-w3-prepare-buffer): Bind url-gateway-unplugged.
(mm-inline-text-html-render-with-w3): Ditto.
* gnus-art.el (gnus-article-wash-html-with-w3): Ditto.
Suggested by Dave Love <d.love@dl.ac.uk>.
2002-02-05 ShengHuo ZHU <zsh@cs.rochester.edu>
+ * message.el (message-gen-unsubscribed-mft): New function.
+ From Sriram Karra <karra@cs.utah.edu>.
+
+ * gnus.el (gnus-article-unpropagated-mark-lists): Backslash the
+ open parenthesis.
+
+ * mm-view.el (mm-w3-prepare-buffer): Bind url-gateway-unplugged.
+ (mm-inline-text-html-render-with-w3): Ditto.
+ * gnus-art.el (gnus-article-wash-html-with-w3): Ditto.
+ Suggested by Dave Love <d.love@dl.ac.uk>.
+
* mm-url.el (mm-url-load-url): Require w3-vars for old versions.
* nntp.el (nntp-send-command-and-decode): Check PROCESS.
(mm-setup-w3)
(let ((w3-strict-width (window-width))
(url-standalone-mode t)
+ (url-gateway-unplugged t)
(w3-honor-stylesheets nil)
(w3-delay-image-loads t))
(condition-case var
"Marks that shouldn't be propagated to backends.
Typical marks are those that make no sense in a standalone backend,
such as a mark that says whether an article is stored in the cache
-(which doesn't make sense in a standalone backend).")
+\(which doesn't make sense in a standalone backend).")
(defvar gnus-headers-retrieved-by nil)
(defvar gnus-article-reply nil)
(define-key message-mode-map "\C-c\C-f\C-k" 'message-goto-keywords)
(define-key message-mode-map "\C-c\C-f\C-u" 'message-goto-summary)
(define-key message-mode-map "\C-c\C-f\C-i" 'message-insert-or-toggle-importance)
+ (define-key message-mode-map "\C-c\C-f\C-a" 'message-gen-unsubscribed-mft)
(define-key message-mode-map "\C-c\C-b" 'message-goto-body)
(define-key message-mode-map "\C-c\C-i" 'message-goto-signature)
(goto-char (point-max))
nil))
+(defun message-gen-unsubscribed-mft (&optional include-cc)
+ "Insert a reasonable MFT header in a post to an unsubscribed list.
+When making original posts to a mailing list you are not subscribed to,
+you have to type in a MFT header by hand. The contents, usually, are
+the addresses of the list and your own address. This function inserts
+such a header automatically. It fetches the contents of the To: header
+in the current mail buffer, and appends the current user-mail-address.
+
+If the optional argument `include-cc' is non-nil, the addresses in the
+Cc: header are also put into the MFT."
+
+ (interactive)
+ (message-remove-header "Mail-Followup-To")
+ (let* ((cc (and include-cc (message-fetch-field "Cc")))
+ (tos (if cc
+ (concat (message-fetch-field "To") "," cc)
+ (message-fetch-field "To"))))
+ (message-goto-mail-followup-to)
+ (insert (concat tos ", " user-mail-address))))
+
\f
(defun message-insert-to (&optional force)
(let ((text (mm-get-part handle))
(b (point))
(url-standalone-mode t)
+ (url-gateway-unplugged t)
(w3-honor-stylesheets nil)
(w3-delay-image-loads t)
(url-current-object
(let ((w3-strict-width width)
;; Don't let w3 set the global version of
;; this variable.
- (fill-column fill-column)
- (w3-honor-stylesheets nil)
- (w3-delay-image-loads t)
- (url-standalone-mode t))
+ (fill-column fill-column))
(condition-case var
(w3-region (point-min) (point-max))
(error
(defun mm-w3-prepare-buffer ()
(require 'w3)
(let ((url-standalone-mode t)
+ (url-gateway-unplugged t)
(w3-honor-stylesheets nil)
(w3-delay-image-loads t))
(w3-prepare-buffer)))