diff options
| -rw-r--r-- | lisp/gnus/message.el | 15 |
1 files changed, 8 insertions, 7 deletions
diff --git a/lisp/gnus/message.el b/lisp/gnus/message.el index f2ca8d636cf..f104a6e6346 100644 --- a/lisp/gnus/message.el +++ b/lisp/gnus/message.el | |||
| @@ -1258,14 +1258,15 @@ C-c C-r message-caesar-buffer-body (rot13 the message body)." | |||
| 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) |