how do I archive what i sent, not just the mml?

how do I archive what i sent, not just the mml?

[Mark Buda]

Hi. I'm using Pterodactyl Gnus v0.84 under Xemacs 20.4 on a Debian
mostly-2.1 system. When I Gcc: a message, I would like Gnus to store
the actual MIME message that was sent, not the MML that was used to
generate it.

Can anybody suggest how I might do this? (With or without upgrading to
a newer version, but preferably without, of course.)

Thanks in advance...
-- 
I get my monkeys for nothing and my chimps for free.
http://www.clark.net/pub/hermit/

Re: how do I archive what i sent, not just the mml?

[Karl Kleinpaste]

Mark Buda <hermit@clark.net> writes:
> Pterodactyl Gnus v0.84
> When I Gcc: a message, I would like Gnus to store
> the actual MIME message that was sent

Upgrade.  That was an 0.84 bug.

Re: how do I archive what i sent, not just the mml?

[William M. Perry]

[-- Attachment #1: Type: text/plain, Size: 1005 bytes --]

Karl Kleinpaste <karl@justresearch.com> writes:

> Mark Buda <hermit@clark.net> writes:
> > Pterodactyl Gnus v0.84
> > When I Gcc: a message, I would like Gnus to store
> > the actual MIME message that was sent
> 
> Upgrade.  That was an 0.84 bug.

Ummm, are you sure it is fixed?  If I use 'FCC' it is still screwed.  This
was just FCC'd from my `Pterodactyl Gnus v0.95' running on XEmacs 21.2

-bp

-------------------------------------------------------------------------------
>From nobody Mon Aug 30 18:12:33 1999
Sender: wmperry@megalith.bp.aventail.com
To: wmperry
Subject: blah
X-Now-Listening-To: Beastie - Shadrach
Errors-to: wmperry@aventail.com
Reply-to: wmperry@aventail.com
X-Face: O~Rn;(l][/-o1sALg4A@xpE:9-"'IR[%;,,!m7</SYF`{vYQ(&RI1&EiH[FvT;J}@f!4kfz
 x_!Y#=y{Uuj9GvUi=cPuajQ(Z42R[wE@{G,sn$qGr5g/wnb*"*ktI+,CD}1Z'wxrM2ag-r0p5I6\nA
 [WJopW_J.WY;
From: wmperry@aventail.com (William M. Perry)
Date: 30 Aug 1999 18:12:33 -0500
Message-ID: <86hflgdfry.fsf@megalith.bp.aventail.com>
Lines: 2


[-- Attachment #2: .emacs --]
[-- Type: application/octet-stream, Size: 3906 bytes --]

(require 'cl)

(if (and (fboundp 'set-specifier)
	 (boundp 'default-gutter-visible-p))
    (set-specifier default-gutter-visible-p nil))

(let ((name (system-name)))
  (cond
   ((string-match (concat (regexp-quote ".bp.aventail.com") "$") name)
    (set 'at-home t))
   ((string-match (concat (regexp-quote ".in.aventail.com") "$") name)
    (set 'at-work t))))
       
(if (file-directory-p "~/.emacs-config")
    (let ((cfg-files (directory-files "~/.emacs-config" t "\\.el$" nil)))
      (while cfg-files
	(condition-case ()
	    (load (file-name-sans-extension (pop cfg-files)) nil t)
	  (error nil)))))

(setq auto-mode-alist (append '(
				("\\.pl$"         . perl-mode)
				("\\.pm$"         . perl-mode)
				("\\.[ch]$"       . c++-mode)
				("\\.txi$"        . texinfo-mode)
				)
			      auto-mode-alist))

(put 'eval-expression 'disabled nil)
(put 'narrow-to-page 'disabled nil)
(put 'narrow-to-region 'disabled nil)
(put 'downcase-region 'disabled nil)

(setq
 custom-file "~/.custom-settings"
 abbrev-file-name "~/.abbrevs"
 auto-save-default t
 default-major-mode 'indented-text-mode
 delete-auto-save-files t
 diff-switches '("-c" "-w")
 display-time-day-and-date nil
 display-time-show-icons-maybe nil
 display-warning-suppressed-classes '(key-mapping)
 enable-recursive-minibuffers t
 fill-column 75
 gc-cons-threshold 512000
 format-alist nil
 help-selects-help-window nil
 inhibit-startup-message t
 lpr-command "lpr"
 lpr-switches '("-h")
 max-lisp-eval-depth 500
 minibuffer-max-depth nil
 passwd-invert-frame-when-keyboard-grabbed nil
 ps-print-color-p nil
 require-final-newline t
 search-delete-char ?\^h
 search-quote-char ?\^\\
 sgml-active-dtd-indicator t
 sgml-indent-data t
 sgml-tag-region-if-active t
 sgml-warn-about-undefined-elements nil
 sgml-mode-hook 'turn-on-auto-fill
 sgml-suppress-warning t
 socks-override-functions t
 suggest-key-bindings nil
 teach-extended-commands-p nil
 url-keep-history t
 url-automatic-caching t
 use-dialog-box nil
 user-mail-address "wmperry@aventail.com"
 query-user-mail-address nil
 w3-user-colors-take-precedence t
 w3-user-fonts-take-precedence t
 w3-delay-image-loads t
 window-min-height 1
 )

;;; Miscellaneous key bindings
(global-set-key "\C-c\C-f" 'flame)
(global-set-key "\C-c\C-w" 'switch-to-buffer)
(global-set-key [(super ?g)]   'goto-line)
(global-set-key [(control ?g)] 'goto-line)
(global-set-key [(super ?u)]   'gnus)
(global-set-key "\C-o"	   'switch-to-buffer-other-window)
(global-set-key "\C-x\C-e" 'eval-current-buffer)
(global-set-key "\C-x\C-x" 'repeat-complex-command)
(global-set-key "\C-x\C-z" 'delete-other-windows)

(add-hook 'lisp-interaction-mode-hook
	  '(lambda ()
	     (define-key lisp-interaction-mode-map "\r" 'newline-and-indent)))

(add-hook 'change-log-mode-hook
	  '(lambda ()
	     (auto-fill-mode 1)
	     (setq fill-prefix "  ")))	 

(add-hook 'emacs-lisp-mode-hook
	  '(lambda ()
	     (define-key emacs-lisp-mode-map "\r" 'newline-and-indent)))

(cond
 ((string-match "XEmacs" emacs-version) ; XEmacs customization
  (if (device-sound-enabled-p)
      '(load-default-sounds))
  (turn-on-font-lock))
 (t
  (if (not window-system)		; FSF Emacs 19 customization
      nil
    (setq baud-rate (* 10 baud-rate)))
  (setq default-frame-alist (cons '(vertical-scroll-bars . right)
				  default-frame-alist))
  (transient-mark-mode 1)
  (global-font-lock-mode 1)
  (if (/= emacs-major-version 20)
      (standard-display-european 1))))

(mapcar '(lambda (x) (condition-case () (require x) (error nil)))
	'(crypt mwheel))

(and (fboundp 'display-time) (display-time))

(defun lanmodem-reset ()
  (interactive)
  (let ((x (open-network-stream "lanmodem" " *lanmodem*" "lanmodem.bp.aventail.com" 23))
	(commands '("ragnarok" "disc 0" "disc 0" "exit")))
    (while commands
      (process-send-string x (concat (pop commands) "\r\n"))
      (while (accept-process-output x 0.5)))))

(mwheel-install)

[-- Attachment #3: Type: text/plain, Size: 81 bytes --]


-------------------------------------------------------------------------------

Re: how do I archive what i sent, not just the mml?

[Karl Kleinpaste]

It works fine for Gcc; dunno about Fcc.  Perhaps when Fcc is performed,
the MML hasn't yet been replaced with the final data to be sent.

If Fcc and Gcc aren't being handled one immediately after the other,
they ought to be, since they are in effect the same thing.

Re: how do I archive what i sent, not just the mml?

[Lars Magne Ingebrigtsen]

wmperry@aventail.com (William M. Perry) writes:

> Ummm, are you sure it is fixed?  If I use 'FCC' it is still screwed.  This
> was just FCC'd from my `Pterodactyl Gnus v0.95' running on XEmacs 21.2

Uhm; the message you included was un-MML-ified, so it looked OK to
me... 

-- 
(domestic pets only, the antidote for overdose, milk.)
  larsi@gnus.org * Lars Magne Ingebrigtsen

Re: how do I archive what i sent, not just the mml?

[Lars Magne Ingebrigtsen]

Karl Kleinpaste <karl@justresearch.com> writes:

> If Fcc and Gcc aren't being handled one immediately after the other,
> they ought to be, since they are in effect the same thing.

The Gcc is done immediately after the Fcc, I think.

-- 
(domestic pets only, the antidote for overdose, milk.)
  larsi@gnus.org * Lars Magne Ingebrigtsen