Mercurial > emacs
comparison lisp/gnus/message.el @ 22378:18a60ded5193
(message-mode): Set paragraph-start and
paragraph-separate as in mail-mode.
| author | Richard M. Stallman <rms@gnu.org> |
|---|---|
| date | Sun, 07 Jun 1998 01:30:09 +0000 |
| parents | 4f926f1609e6 |
| children | e3dc0aa099e5 |
comparison
equal
deleted
inserted
replaced
| 22377:24999a02843d | 22378:18a60ded5193 |
|---|---|
| 1256 (error "Face %s not configured for %s mode" face mode-name))) | 1256 (error "Face %s not configured for %s mode" face mode-name))) |
| 1257 "") | 1257 "") |
| 1258 facemenu-remove-face-function t) | 1258 facemenu-remove-face-function t) |
| 1259 (make-local-variable 'paragraph-separate) | 1259 (make-local-variable 'paragraph-separate) |
| 1260 (make-local-variable 'paragraph-start) | 1260 (make-local-variable 'paragraph-start) |
| 1261 ;; `-- ' precedes the signature. `-----' appears at the start of the | |
| 1262 ;; lines that delimit forwarded messages. | |
| 1263 ;; Lines containing just >= 3 dashes, perhaps after whitespace, | |
| 1264 ;; are also sometimes used and should be separators. | |
| 1261 (setq paragraph-start (concat (regexp-quote mail-header-separator) | 1265 (setq paragraph-start (concat (regexp-quote mail-header-separator) |
| 1262 "$\\|[ \t]*[-_][-_][-_]+$\\|" | 1266 "$\\|[ \t]*[a-z0-9A-Z]*>+[ \t]*$\\|[ \t]*$\\|" |
| 1263 "-- $\\|" | 1267 "-- $\\|---+$\\|" |
| 1264 paragraph-start)) | 1268 page-delimiter)) |
| 1265 (setq paragraph-separate (concat (regexp-quote mail-header-separator) | 1269 (setq paragraph-separate paragraph-start) |
| 1266 "$\\|[ \t]*[-_][-_][-_]+$\\|" | |
| 1267 "-- $\\|" | |
| 1268 paragraph-separate)) | |
| 1269 (make-local-variable 'message-reply-headers) | 1270 (make-local-variable 'message-reply-headers) |
| 1270 (setq message-reply-headers nil) | 1271 (setq message-reply-headers nil) |
| 1271 (make-local-variable 'message-newsreader) | 1272 (make-local-variable 'message-newsreader) |
| 1272 (make-local-variable 'message-mailer) | 1273 (make-local-variable 'message-mailer) |
| 1273 (make-local-variable 'message-post-method) | 1274 (make-local-variable 'message-post-method) |