Making tm-edit behave with gnus

Making tm-edit behave with gnus

[Stephen Zander]

Can someone enlighten me as to the magical incantation I need to
get tm-edit to operate while composing messages?  The tm manuls
really need a rewrite!

I know Lars is busy adding MIME-ification to gnus; I just wish it
was here now :)

-- 
Stephen
---
"Normality is a statistical illusion." -- me

Re: Making tm-edit behave with gnus

[Norbert Koch]

>> Stephen Zander writes:

Hi Stephen,

 Stephen> Can someone enlighten me as to the magical incantation I
 Stephen> need to get tm-edit to operate while composing messages?
 Stephen> The tm manuls really need a rewrite!

I don't know whether I've got you right, but have you tried something
like


M-x load-library RET mime-setup RET

This should work, afaik. I've got the following code in my gnus.el and 
it, well, seems to work :-)

(load "mime-setup")
(setq mime-editor/transfer-level 8
      mime-editor/split-message nil)

 Stephen> I know Lars is busy adding MIME-ification to gnus; I just
 Stephen> wish it was here now :)

and it will be a *great* show :-)

hth, norbert

-- 
Norbert Koch, Delta Industrie Informatik GmbH.
Every passing hour brings the Solar System forty-three thousand miles
closer to Globular Cluster M13 in Hercules - and still there are some
misfits who insist that there is no such thing as progress.

Re: Making tm-edit behave with gnus

[Steinar Bang]

>>>>> Stephen Zander <gibreel@pobox.com>:

> Can someone enlighten me as to the magical incantation I need to
> get tm-edit to operate while composing messages?  The tm manuls
> really need a rewrite!

Here's how I make Gnus use TM:

(setq gnus-use-tm t)
(setq gnus-use-mailcrypt nil)
; (setq gnus-use-bbdb t)
(load "gnus-setup")


Here's my message mode setup:

(defun sb-message-setup ()
  (progn
    ;; setup from mail-setup-hook
    (setq mail-self-blind t)
    (setq mail-archive-file-name nil)
    (local-set-key "\C-ca" 'mail-interactive-insert-alias-hho)))

(add-hook 'message-setup-hook 'sb-message-setup)

(defun set-tm-dont-mime-encode-messages ()
  (progn
    ; Avoid posting Q-P
    (mime-editor/toggle-transfer-level 8)
    ; Avoid having USENET headers RFC 2047 encoded
    (if (message-news-p)
	(progn
	  (make-variable-buffer-local `mime/field-encoding-method-alist)
	  (setq mime/field-encoding-method-alist
		(append '(
			  ("Subject" . nil)
			  ("From" . nil)
			  ("To" . nil)
			  ("In-Reply-To" . nil)
			  )
			mime/field-encoding-method-alist
			))))
    ))

(add-hook 'message-setup-hook 'set-tm-dont-mime-encode-messages)


(defun set-tm-mail-dont-split-biguns ()
  "Split big messages with attachments when posting news,
but don't split in email messages"
  (if (message-news-p)
      (setq mime-editor/split-message t) ; *do* split
    (setq mime-editor/split-message nil) ; don't split
    ))

(add-hook 'message-setup-hook 'set-tm-mail-dont-split-biguns)


(add-hook 'message-setup-hook
	  (lambda ()
	    (setq message-cite-function 'sc-cite-original)
	    (setq message-default-mail-headers "BCC: sb@metis.no\n")
	    ))