Function: gnus-article-hide-citation-maybe

gnus-article-hide-citation-maybe is an autoloaded, interactive and byte-compiled function defined in gnus-cite.el.gz.

Signature

(gnus-article-hide-citation-maybe &optional ARG FORCE)

Documentation

Toggle hiding of cited text that has an attribution line.

If given a negative prefix, always show; if given a positive prefix, always hide. This will do nothing unless at least gnus-cite-hide-percentage percent and at least gnus-cite-hide-absolute lines of the body is cited text with attributions. When called interactively, these two variables are ignored. See also the documentation for gnus-article-highlight-citation.

Key Bindings

Source Code

;; Defined in /usr/src/emacs/lisp/gnus/gnus-cite.el.gz
(defun gnus-article-hide-citation-maybe (&optional arg force)
  "Toggle hiding of cited text that has an attribution line.
If given a negative prefix, always show; if given a positive prefix,
always hide.
This will do nothing unless at least `gnus-cite-hide-percentage'
percent and at least `gnus-cite-hide-absolute' lines of the body is
cited text with attributions.  When called interactively, these two
variables are ignored.
See also the documentation for `gnus-article-highlight-citation'."
  (interactive (append (gnus-article-hidden-arg) '(force))
	       gnus-article-mode gnus-summary-mode)
  (with-current-buffer gnus-article-buffer
    (gnus-delete-wash-type 'cite)
    (unless (gnus-article-check-hidden-text 'cite arg)
      (save-excursion
	(gnus-cite-parse-maybe force)
	(article-goto-body)
	(let ((start (point))
	      (atts gnus-cite-attribution-alist)
	      (buffer-read-only nil)
	      (hidden 0)
	      total)
	  (goto-char (point-max))
	  (gnus-article-search-signature)
	  (setq total (count-lines start (point)))
	  (while atts
	    (setq hidden (+ hidden (length
				    (cdr (assoc (cdar atts)
						gnus-cite-prefix-alist))))
		  atts (cdr atts)))
	  (when (or force
		    (and (> (* 100 hidden) (* gnus-cite-hide-percentage total))
			 (> hidden gnus-cite-hide-absolute)))
	    (gnus-article-hide-citation)))))))