/[emacs]/emacs/lisp/gnus/gnus-art.el
ViewVC logotype

Diff of /emacs/lisp/gnus/gnus-art.el

Parent Directory Parent Directory | Revision Log Revision Log | View Patch Patch

revision 1.47.4.3 by miles, Thu Sep 9 09:36:25 2004 UTC revision 1.47.4.4 by miles, Tue Sep 21 09:34:07 2004 UTC
# Line 213  By default, if you set this t, then Gnus Line 213  By default, if you set this t, then Gnus
213  signatures, but will never scroll down to show you a page consisting  signatures, but will never scroll down to show you a page consisting
214  only of boring text.  Boring text is controlled by  only of boring text.  Boring text is controlled by
215  `gnus-article-boring-faces'."  `gnus-article-boring-faces'."
216      :version "21.4"
217    :type 'boolean    :type 'boolean
218    :group 'gnus-article-hiding)    :group 'gnus-article-hiding)
219    
# Line 744  If set, this variable overrides `gnus-un Line 745  If set, this variable overrides `gnus-un
745  To see e.g. security buttons you could set this to  To see e.g. security buttons you could set this to
746  `(\"multipart/signed\")'.  `(\"multipart/signed\")'.
747  This variable is only used when `gnus-inhibit-mime-unbuttonizing' is nil."  This variable is only used when `gnus-inhibit-mime-unbuttonizing' is nil."
748    :version "21.1"    :version "21.4"
749    :group 'gnus-article-mime    :group 'gnus-article-mime
750    :type '(repeat regexp))    :type '(repeat regexp))
751    
# Line 753  This variable is only used when `gnus-in Line 754  This variable is only used when `gnus-in
754  When nil (the default value), then some MIME parts do not get buttons,  When nil (the default value), then some MIME parts do not get buttons,
755  as described by the variables `gnus-buttonized-mime-types' and  as described by the variables `gnus-buttonized-mime-types' and
756  `gnus-unbuttonized-mime-types'."  `gnus-unbuttonized-mime-types'."
757    :version "21.3"    :version "21.4"
758    :type 'boolean)    :type 'boolean)
759    
760  (defcustom gnus-body-boundary-delimiter "_"  (defcustom gnus-body-boundary-delimiter "_"
761    "String used to delimit header and body.    "String used to delimit header and body.
762  This variable is used by `gnus-article-treat-body-boundary' which can  This variable is used by `gnus-article-treat-body-boundary' which can
763  be controlled by `gnus-treat-body-boundary'."  be controlled by `gnus-treat-body-boundary'."
764      :version "21.4"
765    :group 'gnus-article-various    :group 'gnus-article-various
766    :type '(choice (item :tag "None" :value nil)    :type '(choice (item :tag "None" :value nil)
767                   string))                   string))
# Line 768  be controlled by `gnus-treat-body-bounda Line 770  be controlled by `gnus-treat-body-bounda
770    "Defines the location of the faces database.    "Defines the location of the faces database.
771  For information on obtaining this database of pretty pictures, please  For information on obtaining this database of pretty pictures, please
772  see http://www.cs.indiana.edu/picons/ftp/index.html"  see http://www.cs.indiana.edu/picons/ftp/index.html"
773      :version "21.4"
774    :type '(repeat directory)    :type '(repeat directory)
775    :link '(url-link :tag "download"    :link '(url-link :tag "download"
776                     "http://www.cs.indiana.edu/picons/ftp/index.html")                     "http://www.cs.indiana.edu/picons/ftp/index.html")
# Line 908  See Info node `(gnus)Customizing Article Line 911  See Info node `(gnus)Customizing Article
911    "Remove carriage returns.    "Remove carriage returns.
912  Valid values are nil, t, `head', `last', an integer or a predicate.  Valid values are nil, t, `head', `last', an integer or a predicate.
913  See Info node `(gnus)Customizing Articles' for details."  See Info node `(gnus)Customizing Articles' for details."
914      :version "21.4"
915    :group 'gnus-article-treat    :group 'gnus-article-treat
916    :link '(custom-manual "(gnus)Customizing Articles")    :link '(custom-manual "(gnus)Customizing Articles")
917    :type gnus-article-treat-custom)    :type gnus-article-treat-custom)
# Line 924  See Info node `(gnus)Customizing Article Line 928  See Info node `(gnus)Customizing Article
928    "Remove leading whitespace in headers.    "Remove leading whitespace in headers.
929  Valid values are nil, t, `head', `last', an integer or a predicate.  Valid values are nil, t, `head', `last', an integer or a predicate.
930  See Info node `(gnus)Customizing Articles' for details."  See Info node `(gnus)Customizing Articles' for details."
931      :version "21.4"
932    :group 'gnus-article-treat    :group 'gnus-article-treat
933    :link '(custom-manual "(gnus)Customizing Articles")    :link '(custom-manual "(gnus)Customizing Articles")
934    :type gnus-article-treat-custom)    :type gnus-article-treat-custom)
# Line 1043  See Info node `(gnus)Customizing Article Line 1048  See Info node `(gnus)Customizing Article
1048    "Display the Date in a format that can be read aloud in English.    "Display the Date in a format that can be read aloud in English.
1049  Valid values are nil, t, `head', `last', an integer or a predicate.  Valid values are nil, t, `head', `last', an integer or a predicate.
1050  See Info node `(gnus)Customizing Articles' for details."  See Info node `(gnus)Customizing Articles' for details."
1051      :version "21.4"
1052    :group 'gnus-article-treat    :group 'gnus-article-treat
1053    :link '(custom-manual "(gnus)Customizing Articles")    :link '(custom-manual "(gnus)Customizing Articles")
1054    :type gnus-article-treat-head-custom)    :type gnus-article-treat-head-custom)
# Line 1126  See Info node `(gnus)Customizing Article Line 1132  See Info node `(gnus)Customizing Article
1132    "Fold headers.    "Fold headers.
1133  Valid values are nil, t, `head', `last', an integer or a predicate.  Valid values are nil, t, `head', `last', an integer or a predicate.
1134  See Info node `(gnus)Customizing Articles' for details."  See Info node `(gnus)Customizing Articles' for details."
1135      :version "21.4"
1136    :group 'gnus-article-treat    :group 'gnus-article-treat
1137    :link '(custom-manual "(gnus)Customizing Articles")    :link '(custom-manual "(gnus)Customizing Articles")
1138    :type gnus-article-treat-custom)    :type gnus-article-treat-custom)
# Line 1134  See Info node `(gnus)Customizing Article Line 1141  See Info node `(gnus)Customizing Article
1141    "Fold the Newsgroups and Followup-To headers.    "Fold the Newsgroups and Followup-To headers.
1142  Valid values are nil, t, `head', `last', an integer or a predicate.  Valid values are nil, t, `head', `last', an integer or a predicate.
1143  See Info node `(gnus)Customizing Articles' for details."  See Info node `(gnus)Customizing Articles' for details."
1144      :version "21.4"
1145    :group 'gnus-article-treat    :group 'gnus-article-treat
1146    :link '(custom-manual "(gnus)Customizing Articles")    :link '(custom-manual "(gnus)Customizing Articles")
1147    :type gnus-article-treat-custom)    :type gnus-article-treat-custom)
# Line 1199  Valid values are nil, t, `head', `last', Line 1207  Valid values are nil, t, `head', `last',
1207  See Info node `(gnus)Customizing Articles' and Info node  See Info node `(gnus)Customizing Articles' and Info node
1208  `(gnus)X-Face' for details."  `(gnus)X-Face' for details."
1209    :group 'gnus-article-treat    :group 'gnus-article-treat
1210    :version "21.1"    :version "21.4"
1211    :link '(custom-manual "(gnus)Customizing Articles")    :link '(custom-manual "(gnus)Customizing Articles")
1212    :link '(custom-manual "(gnus)X-Face")    :link '(custom-manual "(gnus)X-Face")
1213    :type gnus-article-treat-head-custom)    :type gnus-article-treat-head-custom)
# Line 1260  See Info node `(gnus)Customizing Article Line 1268  See Info node `(gnus)Customizing Article
1268  Valid values are nil, t, `head', `last', an integer or a predicate.  Valid values are nil, t, `head', `last', an integer or a predicate.
1269  See Info node `(gnus)Customizing Articles' and Info node  See Info node `(gnus)Customizing Articles' and Info node
1270  `(gnus)Picons' for details."  `(gnus)Picons' for details."
1271      :version "21.4"
1272    :group 'gnus-article-treat    :group 'gnus-article-treat
1273    :group 'gnus-picon    :group 'gnus-picon
1274    :link '(custom-manual "(gnus)Customizing Articles")    :link '(custom-manual "(gnus)Customizing Articles")
# Line 1275  See Info node `(gnus)Customizing Article Line 1284  See Info node `(gnus)Customizing Article
1284    "Draw a boundary at the end of the headers.    "Draw a boundary at the end of the headers.
1285  Valid values are nil and `head'.  Valid values are nil and `head'.
1286  See Info node `(gnus)Customizing Articles' for details."  See Info node `(gnus)Customizing Articles' for details."
1287    :version "21.1"    :version "21.4"
1288    :group 'gnus-article-treat    :group 'gnus-article-treat
1289    :link '(custom-manual "(gnus)Customizing Articles")    :link '(custom-manual "(gnus)Customizing Articles")
1290    :type gnus-article-treat-head-custom)    :type gnus-article-treat-head-custom)
# Line 1293  See Info node `(gnus)Customizing Article Line 1302  See Info node `(gnus)Customizing Article
1302    "Format as HTML.    "Format as HTML.
1303  Valid values are nil, t, `head', `last', an integer or a predicate.  Valid values are nil, t, `head', `last', an integer or a predicate.
1304  See Info node `(gnus)Customizing Articles' for details."  See Info node `(gnus)Customizing Articles' for details."
1305      :version "21.4"
1306    :group 'gnus-article-treat    :group 'gnus-article-treat
1307    :link '(custom-manual "(gnus)Customizing Articles")    :link '(custom-manual "(gnus)Customizing Articles")
1308    :type gnus-article-treat-custom)    :type gnus-article-treat-custom)
# Line 1341  See Info node `(gnus)Customizing Article Line 1351  See Info node `(gnus)Customizing Article
1351  (defcustom gnus-article-encrypt-protocol "PGP"  (defcustom gnus-article-encrypt-protocol "PGP"
1352    "The protocol used for encrypt articles.    "The protocol used for encrypt articles.
1353  It is a string, such as \"PGP\". If nil, ask user."  It is a string, such as \"PGP\". If nil, ask user."
1354      :version "21.4"
1355    :type 'string    :type 'string
1356    :group 'mime-security)    :group 'mime-security)
1357    
# Line 1352  It is a string, such as \"PGP\". If nil, Line 1363  It is a string, such as \"PGP\". If nil,
1363                                (executable-find idna-program))                                (executable-find idna-program))
1364    "Whether IDNA decoding of headers is used when viewing messages.    "Whether IDNA decoding of headers is used when viewing messages.
1365  This requires GNU Libidn, and by default only enabled if it is found."  This requires GNU Libidn, and by default only enabled if it is found."
1366      :version "21.4"
1367    :group 'gnus-article-headers    :group 'gnus-article-headers
1368    :type 'boolean)    :type 'boolean)
1369    
1370  (defcustom gnus-article-over-scroll nil  (defcustom gnus-article-over-scroll nil
1371    "If non-nil, allow scrolling the article buffer even when there no more text."    "If non-nil, allow scrolling the article buffer even when there no more text."
1372      :version "21.4"
1373    :group 'gnus-article    :group 'gnus-article
1374    :type 'boolean)    :type 'boolean)
1375    
# Line 4606  If t, it overrides nil values of Line 4619  If t, it overrides nil values of
4619    
4620  (defcustom gnus-mime-display-multipart-alternative-as-mixed nil  (defcustom gnus-mime-display-multipart-alternative-as-mixed nil
4621    "Display \"multipart/alternative\" parts as  \"multipart/mixed\"."    "Display \"multipart/alternative\" parts as  \"multipart/mixed\"."
4622      :version "21.4"
4623    :group 'gnus-article-mime    :group 'gnus-article-mime
4624    :type 'boolean)    :type 'boolean)
4625    
# Line 4615  If t, it overrides nil values of Line 4629  If t, it overrides nil values of
4629  If displaying \"text/html\" is discouraged \(see  If displaying \"text/html\" is discouraged \(see
4630  `mm-discouraged-alternatives'\) images or other material inside a  `mm-discouraged-alternatives'\) images or other material inside a
4631  \"multipart/related\" part might be overlooked when this variable is nil."  \"multipart/related\" part might be overlooked when this variable is nil."
4632      :version "21.4"
4633    :group 'gnus-article-mime    :group 'gnus-article-mime
4634    :type 'boolean)    :type 'boolean)
4635    
# Line 5719  groups." Line 5734  groups."
5734  (defcustom gnus-button-valid-fqdn-regexp  (defcustom gnus-button-valid-fqdn-regexp
5735    message-valid-fqdn-regexp    message-valid-fqdn-regexp
5736    "Regular expression that matches a valid FQDN."    "Regular expression that matches a valid FQDN."
5737      :version "21.4"
5738    :group 'gnus-article-buttons    :group 'gnus-article-buttons
5739    :type 'regexp)    :type 'regexp)
5740    
# Line 5726  groups." Line 5742  groups."
5742    "Function to use for displaying man pages.    "Function to use for displaying man pages.
5743  The function must take at least one argument with a string naming the  The function must take at least one argument with a string naming the
5744  man page."  man page."
5745      :version "21.4"
5746    :type '(choice (function-item :tag "Man" manual-entry)    :type '(choice (function-item :tag "Man" manual-entry)
5747                   (function-item :tag "Woman" woman)                   (function-item :tag "Woman" woman)
5748                   (function :tag "Other"))                   (function :tag "Other"))
# Line 5736  man page." Line 5753  man page."
5753  If the default site is too slow, try to find a CTAN mirror, see  If the default site is too slow, try to find a CTAN mirror, see
5754  <URL:http://tug.ctan.org/tex-archive/CTAN.sites?action=/index.html>.  See also  <URL:http://tug.ctan.org/tex-archive/CTAN.sites?action=/index.html>.  See also
5755  the variable `gnus-button-handle-ctan'."  the variable `gnus-button-handle-ctan'."
5756      :version "21.4"
5757    :group 'gnus-article-buttons    :group 'gnus-article-buttons
5758    :link '(custom-manual "(gnus)Group Parameters")    :link '(custom-manual "(gnus)Group Parameters")
5759    :type '(choice (const "http://www.tex.ac.uk/tex-archive/")    :type '(choice (const "http://www.tex.ac.uk/tex-archive/")
# Line 5746  the variable `gnus-button-handle-ctan'." Line 5764  the variable `gnus-button-handle-ctan'."
5764  (defcustom gnus-button-ctan-handler 'browse-url  (defcustom gnus-button-ctan-handler 'browse-url
5765    "Function to use for displaying CTAN links.    "Function to use for displaying CTAN links.
5766  The function must take one argument, the string naming the URL."  The function must take one argument, the string naming the URL."
5767      :version "21.4"
5768    :type '(choice (function-item :tag "Browse Url" browse-url)    :type '(choice (function-item :tag "Browse Url" browse-url)
5769                   (function :tag "Other"))                   (function :tag "Other"))
5770    :group 'gnus-article-buttons)    :group 'gnus-article-buttons)
5771    
5772  (defcustom gnus-button-handle-ctan-bogus-regexp "^/?tex-archive/\\|^/"  (defcustom gnus-button-handle-ctan-bogus-regexp "^/?tex-archive/\\|^/"
5773    "Bogus strings removed from CTAN URLs."    "Bogus strings removed from CTAN URLs."
5774      :version "21.4"
5775    :group 'gnus-article-buttons    :group 'gnus-article-buttons
5776    :type '(choice (const "^/?tex-archive/\\|/")    :type '(choice (const "^/?tex-archive/\\|/")
5777                   (regexp :tag "Other")))                   (regexp :tag "Other")))
# Line 5765  The function must take one argument, the Line 5785  The function must take one argument, the
5785     "\\)")     "\\)")
5786    "Regular expression for ctan directories.    "Regular expression for ctan directories.
5787  It should match all directories in the top level of `gnus-ctan-url'."  It should match all directories in the top level of `gnus-ctan-url'."
5788      :version "21.4"
5789    :group 'gnus-article-buttons    :group 'gnus-article-buttons
5790    :type 'regexp)    :type 'regexp)
5791    
# Line 5774  It should match all directories in the t Line 5795  It should match all directories in the t
5795            gnus-button-valid-fqdn-regexp            gnus-button-valid-fqdn-regexp
5796            ">?\\)\\b")            ">?\\)\\b")
5797    "Regular expression that matches a message ID or a mail address."    "Regular expression that matches a message ID or a mail address."
5798      :version "21.4"
5799    :group 'gnus-article-buttons    :group 'gnus-article-buttons
5800    :type 'regexp)    :type 'regexp)
5801    
# Line 5785  message ID or a mail address, respective Line 5807  message ID or a mail address, respective
5807  symbol `ask', always query the user what do do.  If it is a function, this  symbol `ask', always query the user what do do.  If it is a function, this
5808  function will be called with the string as it's only argument.  The function  function will be called with the string as it's only argument.  The function
5809  must return `mid', `mail', `invalid' or `ask'."  must return `mid', `mail', `invalid' or `ask'."
5810      :version "21.4"
5811    :group 'gnus-article-buttons    :group 'gnus-article-buttons
5812    :type '(choice (function-item :tag "Heuristic function"    :type '(choice (function-item :tag "Heuristic function"
5813                                  gnus-button-mid-or-mail-heuristic)                                  gnus-button-mid-or-mail-heuristic)
# Line 5848  must return `mid', `mail', `invalid' or Line 5871  must return `mid', `mail', `invalid' or
5871    
5872  A negative RATE indicates a message IDs, whereas a positive indicates a mail  A negative RATE indicates a message IDs, whereas a positive indicates a mail
5873  address.  The REGEXP is processed with `case-fold-search' set to nil."  address.  The REGEXP is processed with `case-fold-search' set to nil."
5874      :version "21.4"
5875    :group 'gnus-article-buttons    :group 'gnus-article-buttons
5876    :type '(repeat (cons (number :tag "Rate")    :type '(repeat (cons (number :tag "Rate")
5877                         (regexp :tag "Regexp"))))                         (regexp :tag "Regexp"))))
# Line 6032  positives are possible.  Note that you c Line 6056  positives are possible.  Note that you c
6056  specific groups.  Setting it higher in TeX groups is probably a good idea.  specific groups.  Setting it higher in TeX groups is probably a good idea.
6057  See Info node `(gnus)Group Parameters' and the variable `gnus-parameters' on  See Info node `(gnus)Group Parameters' and the variable `gnus-parameters' on
6058  how to set variables in specific groups."  how to set variables in specific groups."
6059      :version "21.4"
6060    :group 'gnus-article-buttons    :group 'gnus-article-buttons
6061    :link '(custom-manual "(gnus)Group Parameters")    :link '(custom-manual "(gnus)Group Parameters")
6062    :type 'integer)    :type 'integer)
# Line 6043  positives are possible.  Note that you c Line 6068  positives are possible.  Note that you c
6068  specific groups.  Setting it higher in Unix groups is probably a good idea.  specific groups.  Setting it higher in Unix groups is probably a good idea.
6069  See Info node `(gnus)Group Parameters' and the variable `gnus-parameters' on  See Info node `(gnus)Group Parameters' and the variable `gnus-parameters' on
6070  how to set variables in specific groups."  how to set variables in specific groups."
6071      :version "21.4"
6072    :group 'gnus-article-buttons    :group 'gnus-article-buttons
6073    :link '(custom-manual "(gnus)Group Parameters")    :link '(custom-manual "(gnus)Group Parameters")
6074    :type 'integer)    :type 'integer)
# Line 6054  positives are possible.  Note that you c Line 6080  positives are possible.  Note that you c
6080  specific groups.  Setting it higher in Emacs or Gnus related groups is  specific groups.  Setting it higher in Emacs or Gnus related groups is
6081  probably a good idea.  See Info node `(gnus)Group Parameters' and the variable  probably a good idea.  See Info node `(gnus)Group Parameters' and the variable
6082  `gnus-parameters' on how to set variables in specific groups."  `gnus-parameters' on how to set variables in specific groups."
6083      :version "21.4"
6084    :group 'gnus-article-buttons    :group 'gnus-article-buttons
6085    :link '(custom-manual "(gnus)Group Parameters")    :link '(custom-manual "(gnus)Group Parameters")
6086    :type 'integer)    :type 'integer)
# Line 6063  probably a good idea.  See Info node `(g Line 6090  probably a good idea.  See Info node `(g
6090  The higher the number, the more buttons will appear and the more false  The higher the number, the more buttons will appear and the more false
6091  positives are possible."  positives are possible."
6092    ;; mail addresses, MIDs, URLs for news, ...    ;; mail addresses, MIDs, URLs for news, ...
6093      :version "21.4"
6094    :group 'gnus-article-buttons    :group 'gnus-article-buttons
6095    :type 'integer)    :type 'integer)
6096    
# Line 6071  positives are possible." Line 6099  positives are possible."
6099  The higher the number, the more buttons will appear and the more false  The higher the number, the more buttons will appear and the more false
6100  positives are possible."  positives are possible."
6101    ;; stuff handled by `browse-url' or `gnus-button-embedded-url'    ;; stuff handled by `browse-url' or `gnus-button-embedded-url'
6102      :version "21.4"
6103    :group 'gnus-article-buttons    :group 'gnus-article-buttons
6104    :type 'integer)    :type 'integer)
6105    

Legend:
Removed from v.1.47.4.3  
changed lines
  Added in v.1.47.4.4

savannah-hackers-public@gnu.org
ViewVC Help
Powered by ViewVC 1.1.26