* 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>.

diff --git a/lisp/ChangeLog b/lisp/ChangeLog
index 069a60a..84a0322 100644 (file)
--- a/lisp/ChangeLog
+++ b/lisp/ChangeLog
@@ -1,5 +1,16 @@
 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.

diff --git a/lisp/gnus-art.el b/lisp/gnus-art.el
index 9b9b2a2..02d862f 100644 (file)
--- a/lisp/gnus-art.el
+++ b/lisp/gnus-art.el
@@ -2080,6 +2080,7 @@ If READ-CHARSET, ask for a coding system."
   (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

diff --git a/lisp/gnus.el b/lisp/gnus.el
index 4b86108..0cb0f70 100644 (file)
--- a/lisp/gnus.el
+++ b/lisp/gnus.el
@@ -1869,7 +1869,7 @@ covered by that variable."
   "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)

diff --git a/lisp/message.el b/lisp/message.el
index e994a2a..2704ca1 100644 (file)
--- a/lisp/message.el
+++ b/lisp/message.el
@@ -1545,6 +1545,7 @@ Point is left at the beginning of the narrowed-to region."
   (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)
 
@@ -1924,6 +1925,26 @@ return nil."
     (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)

diff --git a/lisp/mm-view.el b/lisp/mm-view.el
index 89e2f54..5ffecc4 100644 (file)
--- a/lisp/mm-view.el
+++ b/lisp/mm-view.el
@@ -86,6 +86,7 @@
   (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
@@ -119,10 +120,7 @@
            (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
@@ -351,6 +349,7 @@ will not be substituted.")
 (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)))