From mboxrd@z Thu Jan  1 00:00:00 1970
X-Msuck: nntp://news.gmane.io/gmane.emacs.gnus.general/14776
Path: main.gmane.org!not-for-mail
From: Steinar Bang <sb@metis.no>
Newsgroups: gmane.emacs.gnus.general
Subject: Re: Making tm-edit behave with gnus
Date: 26 Mar 1998 12:51:09 +0100
Sender: owner-ding@hpc.uh.edu
Message-ID: <whemzpy8k2.fsf@norne.oslo.metis.no>
References: <87ogyudvxm.fsf@wsuse5.mckesson.com>
NNTP-Posting-Host: coloc-standby.netfonds.no
Mime-Version: 1.0 (generated by tm-edit 7.105)
Content-Type: text/plain; charset=US-ASCII
X-Trace: main.gmane.org 1035153912 18142 80.91.224.250 (20 Oct 2002 22:45:12 GMT)
X-Complaints-To: usenet@main.gmane.org
NNTP-Posting-Date: Sun, 20 Oct 2002 22:45:12 +0000 (UTC)
Return-Path: <owner-ding@hpc.uh.edu>
Original-Received: from xemacs.org (xemacs.cs.uiuc.edu [128.174.252.16])
	by altair.xemacs.org (8.8.8/8.8.8) with ESMTP id EAA07857
	for <steve@altair.xemacs.org>; Thu, 26 Mar 1998 04:01:04 -0800
Original-Received: from gizmo.hpc.uh.edu (gizmo.hpc.uh.edu [129.7.102.31])
	by xemacs.org (8.8.5/8.8.5) with ESMTP id GAA06883
	for <steve@xemacs.org>; Thu, 26 Mar 1998 06:01:24 -0600 (CST)
Original-Received: from sina.hpc.uh.edu (sina.hpc.uh.edu [129.7.3.5]) by gizmo.hpc.uh.edu (8.7.6/8.7.3) with ESMTP id GAN24430; Thu, 26 Mar 1998 06:28:25 -0600
Original-Received: by sina.hpc.uh.edu (TLB v0.09a (1.20 tibbs 1996/10/09 22:03:07)); Thu, 26 Mar 1998 05:52:09 -0600 (CST)
Original-Received: from claymore.vcinet.com (claymore.vcinet.com [208.205.12.23]) by sina.hpc.uh.edu (8.7.3/8.7.3) with SMTP id FAA02237 for <ding@hpc.uh.edu>; Thu, 26 Mar 1998 05:51:58 -0600 (CST)
Original-Received: (qmail 9584 invoked by uid 504); 26 Mar 1998 11:51:45 -0000
Original-Received: (qmail 9581 invoked from network); 26 Mar 1998 11:51:42 -0000
Original-Received: from norne.oslo.metis.no (195.0.254.238)
  by claymore.vcinet.com with SMTP; 26 Mar 1998 11:51:41 -0000
Original-Received: by norne.oslo.metis.no (8.8.4/8.8.4) id MAA27725; Thu, 26 Mar 1998 12:51:09 +0100 (MET)
Original-To: ding@gnus.org
In-Reply-To: Stephen Zander's message of "25 Mar 1998 18:31:49 -0800"
Original-Lines: 63
X-Mailer: Gnus v5.6.3/Emacs 19.34
Precedence: list
X-Majordomo: 1.94.jlt7
Xref: main.gmane.org gmane.emacs.gnus.general:14776
X-Report-Spam: http://spam.gmane.org/gmane.emacs.gnus.general:14776

>>>>> 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")
	    ))