Mercurial > hg > xemacs-beta

comparison lisp/gnus/gnus-art.el @ 22:8fc7fe29b841 r19-15b94

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
Import from CVS: tag r19-15b94
author cvs
date Mon, 13 Aug 2007 08:50:29 +0200
parents d95e72db5c07
children 4103f0995bd7
comparison
equal deleted inserted replaced
21:b88636d63495 22:8fc7fe29b841
177 "\\(\\s-\\|^\\|[-\"\(]\\)\\(%s\\(\\w+\\(\\s-+\\w+\\)*[.,]?\\)%s\\)\\(\\s-\\|[-?!.,;:\"\)]\\)") 177 "\\(\\s-\\|^\\|[-\"\(]\\)\\(%s\\(\\w+\\(\\s-+\\w+\\)*[.,]?\\)%s\\)\\(\\s-\\|[-?!.,;:\"\)]\\)")
178 (types 178 (types
179 '(("_" "_" underline) 179 '(("_" "_" underline)
180 ("/" "/" italic) 180 ("/" "/" italic)
181 ("\\*" "\\*" bold) 181 ("\\*" "\\*" bold)
182 ("_/" "/_" underline-italic) 182 ;;("_/" "/_" underline-italic)
183 ("_\\*" "\\*_" underline-bold) 183 ;;("_\\*" "\\*_" underline-bold)
184 ("\\*/" "/\\*" bold-italic) 184 ("\\*/" "/\\*" bold-italic)
185 ("_\\*/" "/\\*_" underline-bold-italic)))) 185 ;;("_\\*/" "/\\*_" underline-bold-italic)
186 )))
186 `(("\\(\\s-\\|^\\)\\(_\\(\\(\\w\\|_[^_]\\)+\\)_\\)\\(\\s-\\|[?!.,;]\\)" 187 `(("\\(\\s-\\|^\\)\\(_\\(\\(\\w\\|_[^_]\\)+\\)_\\)\\(\\s-\\|[?!.,;]\\)"
187 2 3 gnus-emphasis-underline) 188 2 3 gnus-emphasis-underline)
188 ,@(mapcar 189 ,@(mapcar
189 (lambda (spec) 190 (lambda (spec)
190 (list 191 (list
1456 (save-restriction 1457 (save-restriction
1457 (widen) 1458 (widen)
1458 (if (and (file-readable-p filename) 1459 (if (and (file-readable-p filename)
1459 (mail-file-babyl-p filename)) 1460 (mail-file-babyl-p filename))
1460 (gnus-output-to-rmail filename t) 1461 (gnus-output-to-rmail filename t)
1461 (gnus-output-to-mail filename t))))) 1462 (gnus-output-to-mail filename)))))
1462 ;; Remember the directory name to save articles. 1463 ;; Remember the directory name to save articles.
1463 (setq gnus-newsgroup-last-mail filename))) 1464 (setq gnus-newsgroup-last-mail filename)))
1464 1465
1465 (defun gnus-summary-save-in-file (&optional filename overwrite) 1466 (defun gnus-summary-save-in-file (&optional filename overwrite)
1466 "Append this article to file. 1467 "Append this article to file.