Variable: gnus-article-wash-status-strings

gnus-article-wash-status-strings is a variable defined in gnus-art.el.gz.

Value

((emphasis #("e" 0 1 (help-echo "/*_Emphasis_*/ characters applied"))
	   #(" " 0 1
	     (help-echo "No /*_emphasis_*/ characters applied")))
 (overstrike
  #("o" 0 1 (help-echo "Overstrike (^H) characters applied"))
  #(" " 0 1 (help-echo "No overstrike characters applied")))
 (signature #("s" 0 1 (help-echo "Signature has been hidden"))
	    #(" " 0 1 (help-echo "Signature is visible")))
 (pgp
  #("p" 0 1 (help-echo "Encrypted or signed message status hidden"))
  #(" " 0 1
    (help-echo "No hidden encryption nor digital signature status")))
 (headers #("h" 0 1 (help-echo "Hidden headers"))
	  #(" " 0 1 (help-echo "All headers visible.")))
 (cite #("c" 0 1 (help-echo "Possible hidden citation text"))
       #(" " 0 1 (help-echo "All citation text visible"))))

Documentation

Alist of strings describing wash status in the mode line.

Each entry has the form (KEY ON OF), where the KEY is a symbol representing the particular washing function, ON is the string to use in the article mode line when the washing function is active, and OFF is the string to use when it is inactive.

Source Code

;; Defined in /usr/src/emacs/lisp/gnus/gnus-art.el.gz
(defconst gnus-article-wash-status-strings
  (let ((alist '((cite "c" "Possible hidden citation text"
		       " " "All citation text visible")
		 (headers "h" "Hidden headers"
			  " " "All headers visible.")
		 (pgp "p" "Encrypted or signed message status hidden"
		      " " "No hidden encryption nor digital signature status")
		 (signature "s" "Signature has been hidden"
			    " " "Signature is visible")
		 (overstrike "o" "Overstrike (^H) characters applied"
			     " " "No overstrike characters applied")
		 (emphasis "e" "/*_Emphasis_*/ characters applied"
			   " " "No /*_emphasis_*/ characters applied")))
	result)
    (dolist (entry alist result)
      (let ((key (nth 0 entry))
	    (on (copy-sequence (nth 1 entry)))
	    (on-help (nth 2 entry))
	    (off (copy-sequence (nth 3 entry)))
	    (off-help (nth 4 entry)))
	(put-text-property 0 1 'help-echo on-help on)
	(put-text-property 0 1 'help-echo off-help off)
	(push (list key on off) result))))
  "Alist of strings describing wash status in the mode line.
Each entry has the form (KEY ON OF), where the KEY is a symbol
representing the particular washing function, ON is the string to use
in the article mode line when the washing function is active, and OFF
is the string to use when it is inactive.")