Mercurial > emacs

comparison lisp/gnus/gnus-art.el @ 79313:f4c90d55f00f

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
Merge from gnus--rel--5.10 Patches applied: * gnus--rel--5.10 (patch 266-268) - Merge from emacs--rel--22 - Update from CVS 2007-11-01 Reiner Steib <Reiner.Steib@gmx.de> * lisp/gnus/mm-util.el (mm-charset-eval-alist): Mark as risky local variable. * lisp/gnus/gnus.el (gnus-group-charter-alist): Mark as risky local variable. * lisp/gnus/gnus-art.el (gnus-button-alist, gnus-header-button-alist): Mark as risky local variable. * lisp/gnus/gnus-group.el (gnus-group-icon-list): Mark as risky local variable. 2007-11-01 ARISAWA Akihiro <ari@mbf.ocn.ne.jp> (tiny change) * lisp/gnus/message.el (message-use-alternative-email-as-from): Examine the From header as well; use message-make-from in order to include a user's full name. [ Backported bug fix from No Gnus. ] 2007-10-30 Reiner Steib <Reiner.Steib@gmx.de> * lisp/gnus/qp.el (quoted-printable-decode-string): Fix typo in doc string. 2007-10-30 Katsumi Yamaoka <yamaoka@jpl.org> * lisp/gnus/gnus-ems.el (gnus-x-splash): Work even if there's no scroll bar. Revision: emacs@sv.gnu.org/emacs--rel--22--patch-143
author Miles Bader <miles@gnu.org>
date Fri, 02 Nov 2007 01:39:46 +0000
parents 2d4fbb82deec
children 1cb31606209f
comparison
equal deleted inserted replaced
79312:6040bcb0c2ea 79313:f4c90d55f00f
6706 (sexp :tag "Form") 6706 (sexp :tag "Form")
6707 (function :tag "Callback") 6707 (function :tag "Callback")
6708 (repeat :tag "Par" 6708 (repeat :tag "Par"
6709 :inline t 6709 :inline t
6710 (integer :tag "Regexp group"))))) 6710 (integer :tag "Regexp group")))))
6711 (put 'gnus-button-alist 'risky-local-variable t)
6711 6712
6712 (defcustom gnus-header-button-alist 6713 (defcustom gnus-header-button-alist
6713 '(("^\\(References\\|Message-I[Dd]\\|^In-Reply-To\\):" "<[^<>]+>" 6714 '(("^\\(References\\|Message-I[Dd]\\|^In-Reply-To\\):" "<[^<>]+>"
6714 0 (>= gnus-button-message-level 0) gnus-button-message-id 0) 6715 0 (>= gnus-button-message-level 0) gnus-button-message-id 0)
6715 ("^\\(From\\|Reply-To\\):" ": *\\(.+\\)$" 6716 ("^\\(From\\|Reply-To\\):" ": *\\(.+\\)$"
6743 (sexp :tag "Form") 6744 (sexp :tag "Form")
6744 (function :tag "Callback") 6745 (function :tag "Callback")
6745 (repeat :tag "Par" 6746 (repeat :tag "Par"
6746 :inline t 6747 :inline t
6747 (integer :tag "Regexp group"))))) 6748 (integer :tag "Regexp group")))))
6749 (put 'gnus-header-button-alist 'risky-local-variable t)
6748 6750
6749 ;;; Commands: 6751 ;;; Commands:
6750 6752
6751 (defun gnus-article-push-button (event) 6753 (defun gnus-article-push-button (event)
6752 "Check text under the mouse pointer for a callback function. 6754 "Check text under the mouse pointer for a callback function.