Re: Citation at the end of the message

[Egor Pervuninski <egor.pervuninski@gmail.com>]

Hello Reiner,

Reiner Steib <reinersteib+from-uce@imap.cc> wrote:

>> How to put citation at the end of a message, after a signature? I
>> know, it's ugly but anyway.

> As this has been requested a couple of times, I've added
> `message-cite-reply-above' in current CVS.

This is my solution. It also automatically adds a "Hello <name>," in
the beginning of the message.

Another problem with Supercite is that it is adding attribution for
empty lines then sc-cite-blank-lines-p is set to t even if nested
citation is used. The solution is also included.

,----[ dotgnus.el ]
| 
| ...
|
| (require 'supercite)
| 
| (defun specmurt/citation-header-work ()
|   "Format citation header for work emails"
|   (let ((sc-mumble "")
| 	(whofrom (sc-whofrom)))
|     (if whofrom
| 	(insert	
|          "Hello " 
|          (sc-mail-field "sc-firstname")
|          ",\n\n\n@cite-start@"
|          whofrom
|          " wrote:\n"))))
| 
| (defun specmurt/clear-attribution ()
|   "Clear attribution for blank lines"
|   (setq attribution "")
|   (setq citation ">")
| )
| ...
| 
| (defun specmurt/move-citation ()
|   "Moves citation to the end of the message"
|   (beginning-of-buffer)
|   (search-forward "@cite-start@")
|   (beginning-of-line)
|   (delete-char 12)
|   (let ((begin (point)))
|     (goto-char (point-max))
|     (re-search-backward "^.*>.*$")
|     (next-line)
|     (let ((cite-text (delete-and-extract-region begin (point))))
|   (end-of-buffer)
|   (insert "\n")
|   (insert cite-text)
|   (beginning-of-buffer)
|   (search-forward "--text follows this line--")
|   (next-line 3)
|   ))
| )
| 
| ...
| 
| (add-hook 'sc-post-hook 'specmurt/move-citation)
| (add-hook 'sc-attribs-postselect-hook 'specmurt/clear-attribution)
| ...
| (setq sc-rewrite-header-list '((specmurt/citation-header-work))))
| (setq sc-preferred-header-style 0)
|
`----

Regards,
Egor Pervuninski