diff options
| author | Jorge A. Alfaro Murillo | 2014-10-16 22:12:47 +0000 |
|---|---|---|
| committer | Katsumi Yamaoka | 2014-10-16 22:12:47 +0000 |
| commit | 60727a5494698b4c6bfa24bab72f75bb7d07a755 (patch) | |
| tree | 5e5f84ace40d157fdb694674a45d80c78ae8767d | |
| parent | 417cf674853d76489eedb77ac856e21a087b955c (diff) | |
| download | emacs-60727a5494698b4c6bfa24bab72f75bb7d07a755.tar.gz emacs-60727a5494698b4c6bfa24bab72f75bb7d07a755.zip | |
lisp/gnus/message.el (message-insert-signature): Make signature respect format=flowed
| -rw-r--r-- | lisp/gnus/ChangeLog | 5 | ||||
| -rw-r--r-- | lisp/gnus/message.el | 9 |
2 files changed, 10 insertions, 4 deletions
diff --git a/lisp/gnus/ChangeLog b/lisp/gnus/ChangeLog index 7dab8dec90d..00c96b7d963 100644 --- a/lisp/gnus/ChangeLog +++ b/lisp/gnus/ChangeLog | |||
| @@ -1,3 +1,8 @@ | |||
| 1 | 2014-10-15 Jorge A. Alfaro-Murillo <jorge.alfaro-murillo@yale.edu> (tiny change) | ||
| 2 | |||
| 3 | * message.el (message-insert-signature): Use `newline' instead of | ||
| 4 | inserting explicit "\n". | ||
| 5 | |||
| 1 | 2014-10-15 Sylvain Chouleur <sylvain.chouleur@gmail.com> | 6 | 2014-10-15 Sylvain Chouleur <sylvain.chouleur@gmail.com> |
| 2 | 7 | ||
| 3 | * gnus-icalendar.el: Support vcal format timezones | 8 | * gnus-icalendar.el: Support vcal format timezones |
diff --git a/lisp/gnus/message.el b/lisp/gnus/message.el index 92cab57337c..1cec37e15dc 100644 --- a/lisp/gnus/message.el +++ b/lisp/gnus/message.el | |||
| @@ -3531,15 +3531,16 @@ Message buffers and is not meant to be called directly." | |||
| 3531 | (goto-char (point-max)) | 3531 | (goto-char (point-max)) |
| 3532 | ;; Insert the signature. | 3532 | ;; Insert the signature. |
| 3533 | (unless (bolp) | 3533 | (unless (bolp) |
| 3534 | (insert "\n")) | 3534 | (newline)) |
| 3535 | (when message-signature-insert-empty-line | 3535 | (when message-signature-insert-empty-line |
| 3536 | (insert "\n")) | 3536 | (newline)) |
| 3537 | (insert "-- \n") | 3537 | (insert "-- ") |
| 3538 | (newline) | ||
| 3538 | (if (eq signature t) | 3539 | (if (eq signature t) |
| 3539 | (insert-file-contents signature-file) | 3540 | (insert-file-contents signature-file) |
| 3540 | (insert signature)) | 3541 | (insert signature)) |
| 3541 | (goto-char (point-max)) | 3542 | (goto-char (point-max)) |
| 3542 | (or (bolp) (insert "\n"))))) | 3543 | (or (bolp) (newline))))) |
| 3543 | 3544 | ||
| 3544 | (defun message-insert-importance-high () | 3545 | (defun message-insert-importance-high () |
| 3545 | "Insert header to mark message as important." | 3546 | "Insert header to mark message as important." |