Re: Citation at the end of the message

Re: Citation at the end of the message

[Reiner Steib]

[ Cc-ed ding@gnus, please obey Mail-Followup-To: ding@gnus.org / 
  Followup-To: gmane.emacs.gnus.general ]

On Mon, Jun 05 2006, Egor Pervuninski wrote [on gnu.emacs.gnus]:

> 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.

Bye, Reiner.
-- 
       ,,,
      (o o)
---ooO-(_)-Ooo---  |  PGP key available  |  http://rsteib.home.pages.de/

Re: Citation at the end of the message

[Egor Pervuninski]

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

Adding "Hello <name>," in replies (was: Citation at the end of the message)

[Reiner Steib]

On Thu, Jun 22 2006, Egor Pervuninski wrote:

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

This can also be done using the new `message-citation-line-format'
variable.

,----[ lisp/ChangeLog ]
| 2006-04-26  Reiner Steib  <Reiner.Steib@gmx.de>
| 
| [...]
| 
| 	* message.el (message-citation-line-format): New variable.
| 	(message-insert-formated-citation-line): New function.
| 	(message-citation-line-function): Add
| 	`message-insert-formated-citation-line' to custom type.
`----

,----[ <f1> v message-citation-line-format RET ]
| message-citation-line-format is a variable defined in `message'.
| Its value is 
| "On %a, %b %d %Y, %n wrote:"
| 
| Documentation:
| Format of the "Whomever writes:" line.
| 
| The string is formatted using `format-spec'.  The following
| constructs are replaced:
| 
|   %f   The full From, e.g. "John Doe <john.doe@example.invalid>".
|   %n   The mail address, e.g. "john.doe@example.invalid".
|   %N   The real name if present, e.g.: "John Doe", else fall
|        back to the mail address.
|   %F   The first name if present, e.g.: "John".
|   %L   The last name if present, e.g.: "Doe".
| 
| All other format specifiers are passed to `format-time-string'
| which is called using the date from the article your replying to.
| Extracting the first (%F) and last name (%L) is done
| heuristically, so you should always check it yourself.
| 
| Please also read the note in the documentation of
| `message-citation-line-function'.
| 
| You can customize this variable.
`----

Bye, Reiner.
-- 
       ,,,
      (o o)
---ooO-(_)-Ooo---  |  PGP key available  |  http://rsteib.home.pages.de/

Re: Adding "Hello <name>," in replies

[Egor Pervuninski]

Hello Reiner,

Reiner Steib <reinersteib+gmane@imap.cc> wrote:

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

> This can also be done using the new `message-citation-line-format'
> variable.

OK, but is it possible to cite like this?

,----
| Hello <name>,
| 
| <cursor is here>
| 
| Signature goes here
| 
| On <date> <name> wrote:
| 
| > citation
| >
| > citation
`----

Basically, "Hello <name>," in the beginning and citation at the end of
the email. And empty lines are also cited. I actually need it to "emulate"
Outlook for work emails.

I use c-sig for adding signatures now because I couldn't figure out
how to add signatures without "--" with Gnus.

Regards,
Egor Pervuninski

Re: Adding "Hello <name>," in replies

[Reiner Steib]

On Mon, Jun 26 2006, Egor Pervuninski wrote:

> Reiner Steib <reinersteib+gmane@imap.cc> wrote:
>
>>> It also automatically adds a "Hello <name>," in the beginning of the
>>> message.
>
>> This can also be done using the new `message-citation-line-format'
>> variable.
>
> OK, but is it possible to cite like this?

No; at least not by only setting `message-citation-line-format' and
`message-citation-line-format'.  Maybe with some message-*-hook?

> ,----
> | Hello <name>,
> | 
> | <cursor is here>
> | 
> | Signature goes here
> | 
> | On <date> <name> wrote:
> | 
> | > citation
> | >
> | > citation
> `----

> I use c-sig for adding signatures now because I couldn't figure out
> how to add signatures without "--" with Gnus.

Maybe you could use the `body' attribute in `gnus-posting-styles', see
(info "(gnus)Posting Styles").  "-- \n" is hard coded into
`message-insert-signature'.

Bye, Reiner.
-- 
       ,,,
      (o o)
---ooO-(_)-Ooo---  |  PGP key available  |  http://rsteib.home.pages.de/

Supercite (was: Adding "Hello <name>," in replies)

[Egor Pervuninski]

Hello Reiner,

Reiner Steib <reinersteib+gmane@imap.cc> wrote:

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

>>> This can also be done using the new `message-citation-line-format'
>>> variable.

>> OK, but is it possible to cite like this?

> No; at least not by only setting `message-citation-line-format' and
> `message-citation-line-format'.  Maybe with some message-*-hook?

Just out of curiosity, is Supercite being maintained currently?

Regards,
Egor Pervuninski

Re: Supercite

[Reiner Steib]

On Tue, Jun 27 2006, Egor Pervuninski wrote:

> Just out of curiosity, is Supercite being maintained currently?

The file `supercite.el' lists Glenn Morris as maintainer.  But the cvs
log doesn't show much changes in the last few years (apart from
over-all changes done to all lisp files) in `supercite.el'.  I don't
use `supercite.el' so I don't know if this means the no changes are
necessary.  I seem to recall some bugs (or user errors?)  WRT
refilling the cited text.

Bye, Reiner.
-- 
       ,,,
      (o o)
---ooO-(_)-Ooo---  |  PGP key available  |  http://rsteib.home.pages.de/