Function: gnus-mailing-list-insinuate

gnus-mailing-list-insinuate is an autoloaded, interactive and byte-compiled function defined in gnus-ml.el.gz.

Signature

(gnus-mailing-list-insinuate &optional FORCE)

Documentation

Setup group parameters from List-Post header.

If FORCE is non-nil, replace the old ones.

Key Bindings

Source Code

;; Defined in /usr/src/emacs/lisp/gnus/gnus-ml.el.gz
;;;###autoload
(defun gnus-mailing-list-insinuate (&optional force)
  "Setup group parameters from List-Post header.
If FORCE is non-nil, replace the old ones."
  (interactive "P")
  (let ((list-post
	 (with-current-buffer gnus-original-article-buffer
	   (gnus-fetch-field "list-post"))))
    (if list-post
	(if (and (not force)
		 (gnus-group-get-parameter gnus-newsgroup-name 'to-list))
	    (gnus-message 1 "to-list is non-nil.")
	  (if (string-match "<mailto:\\([^>]*\\)>" list-post)
	      (setq list-post (match-string 1 list-post)))
	  (gnus-group-add-parameter gnus-newsgroup-name
				    (cons 'to-list list-post))
	  (gnus-mailing-list-mode 1))
      (gnus-message 1 "no list-post in this message."))))