Function: message-strip-list-identifiers

message-strip-list-identifiers is a byte-compiled function defined in message.el.gz.

Signature

(message-strip-list-identifiers SUBJECT)

Documentation

Remove list identifiers in gnus-list-identifiers from string SUBJECT.

Source Code

;; Defined in /usr/src/emacs/lisp/gnus/message.el.gz
(defun message-strip-list-identifiers (subject)
  "Remove list identifiers in `gnus-list-identifiers' from string SUBJECT."
  (require 'gnus-sum)			; for gnus-list-identifiers
  (let ((regexp (if (stringp gnus-list-identifiers)
		    gnus-list-identifiers
		  (mapconcat #'identity gnus-list-identifiers " *\\|"))))
    (if (and (not (equal regexp ""))
             (string-match (concat "\\(\\(\\(Re: +\\)?\\(" regexp
                                   " *\\)\\)+\\(Re: +\\)?\\)")
                           subject))
	(concat (substring subject 0 (match-beginning 1))
		(or (match-string 3 subject)
		    (match-string 5 subject))
		(substring subject
			   (match-end 1)))
      subject)))