Re: reply hook?

[Oleksandr Gavenko <gavenkoa@gmail.com>]

On 2012-11-30, Uwe Brauer wrote:

> I would like to execute a couple of function when replying.
> I have not found a relevant hook so I am using defadvice  
> which is not good for debugging.
>
> (defadvice gnus-summary-reply (after mycheckispell activate)
>   "Runs ispell dict checks and other stuff after
>   the gnus-summary-reply-with-original function."
>   (my-checks-spell))
>
>
> (defun my-checks-spell ()
>   (interactive)
>   (bbdbciteadpt-insert-bbdbcite)
>   (bbdbispelladpt-try-bbdbispell)
>   (bbdbscadapt-try-bbdbsc)
>   (tool-check-from-and-change-ispell-dic)
>   (message-goto-subject)
>   (bbdb-inform-dict-and-abbrev))
>
> Any suggestions?
>
Just type "M-x apropos-variable RET message-.*hook RET". I hope this help you.

In such way I found useful hooks for my '.emacs' customisations:

  (defun my-message-mode-hook ()
    (setq fill-column 78)
    (turn-on-auto-fill)
    (flyspell-mode 1))
  (add-hook 'message-mode-hook 'my-message-mode-hook)

  (defun my-message-save ()
    "Store message in `gnus-article-save-directory' after
  successful sending. It is possible that mail rejected and I lost
  it completely, this func save it for me."
    (unless (eq major-mode 'message-mode)
      (error "Attempt to call my-message-save in non message-mode buffer"))
    (make-directory gnus-article-save-directory t)
    (let ( (buf (current-buffer))
           (field-to (my-clean-filename (or (message-fetch-field "Newsgroups") (message-fetch-field "To"))))
           (field-subject (my-clean-filename (message-fetch-field "Subject")))
           file )
      (setq file (concat gnus-article-save-directory "/" (format-time-string "%F_%T") "_" field-to "_" field-subject))
      (with-temp-file file
        (insert-buffer buf)
        )) )
  (add-hook 'message-sent-hook 'my-message-save)

-- 
Best regards!