Mercurial > emacs

comparison lisp/gnus/gnus-art.el @ 34818:2c66e24f2398

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
* gnus-art.el (article-treat-dumbquotes): Quote \. * gnus-art.el (gnus-treat-emphasize): Don't treat emphasis if Emacs 20 runs on a terminal. * gnus-art.el (article-treat-dumbquotes): More doc, provided by Paul Stevenson <p.stevenson@surrey.ac.uk>
author ShengHuo ZHU <zsh@cs.rochester.edu>
date Fri, 22 Dec 2000 05:54:53 +0000
parents 4b9a7a10deaa
children aaf69bc74739
comparison
equal deleted inserted replaced
34817:41f50ad22d7a 34818:2c66e24f2398
729 See the manual for details." 729 See the manual for details."
730 :group 'gnus-article-treat 730 :group 'gnus-article-treat
731 :type gnus-article-treat-head-custom) 731 :type gnus-article-treat-head-custom)
732 (put 'gnus-treat-buttonize-head 'highlight t) 732 (put 'gnus-treat-buttonize-head 'highlight t)
733 733
734 (defcustom gnus-treat-emphasize 50000 734 (defcustom gnus-treat-emphasize
735 (and (or window-system
736 (featurep 'xemacs)
737 (>= (string-to-number emacs-version) 21))
738 50000)
735 "Emphasize text. 739 "Emphasize text.
736 Valid values are nil, t, `head', `last', an integer or a predicate. 740 Valid values are nil, t, `head', `last', an integer or a predicate.
737 See the manual for details." 741 See the manual for details."
738 :group 'gnus-article-treat 742 :group 'gnus-article-treat
739 :type gnus-article-treat-custom) 743 :type gnus-article-treat-custom)
1315 ;; Do nothing. 1319 ;; Do nothing.
1316 )) 1320 ))
1317 (forward-line 1)))))) 1321 (forward-line 1))))))
1318 1322
1319 (defun article-treat-dumbquotes () 1323 (defun article-treat-dumbquotes ()
1320 "Translate M******** sm*rtq**t*s into proper text. 1324 "Translate M****s*** sm*rtq**t*s into proper text.
1321 Note that this function guesses whether a character is a sm*rtq**t* or 1325 Note that this function guesses whether a character is a sm*rtq**t* or
1322 not, so it should only be used interactively." 1326 not, so it should only be used interactively.
1327
1328 Sm*rtq**t*s are M****s***'s unilateral extension to the character map
1329 in an attempt to provide more quoting characters. If you see
1330 something like \\222 or \\264 where you're expecting some kind of
1331 apostrophe or quotation mark, then try this wash."
1323 (interactive) 1332 (interactive)
1324 (article-translate-strings gnus-article-dumbquotes-map)) 1333 (article-translate-strings gnus-article-dumbquotes-map))
1325 1334
1326 (defun article-translate-characters (from to) 1335 (defun article-translate-characters (from to)
1327 "Translate all characters in the body of the article according to FROM and TO. 1336 "Translate all characters in the body of the article according to FROM and TO.