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

[wmperry@aventail.com (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 --]


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