From mboxrd@z Thu Jan 1 00:00:00 1970 X-Msuck: nntp://news.gmane.io/gmane.emacs.gnus.general/24960 Path: main.gmane.org!not-for-mail From: wmperry@aventail.com (William M. Perry) Newsgroups: gmane.emacs.gnus.general Subject: Re: how do I archive what i sent, not just the mml? Date: 30 Aug 1999 18:13:35 -0500 Sender: owner-ding@hpc.uh.edu Message-ID: <86btbodfq8.fsf@megalith.bp.aventail.com> References: <87671xc7uj.fsf@pazuzu.eudaemonia.org> Reply-To: wmperry@aventail.com NNTP-Posting-Host: coloc-standby.netfonds.no Mime-Version: 1.0 Content-Type: multipart/mixed; boundary="=-=-=" X-Trace: main.gmane.org 1035162434 11560 80.91.224.250 (21 Oct 2002 01:07:14 GMT) X-Complaints-To: usenet@main.gmane.org NNTP-Posting-Date: Mon, 21 Oct 2002 01:07:14 +0000 (UTC) Cc: ding@gnus.org Return-Path: Original-Received: from spinoza.math.uh.edu (spinoza.math.uh.edu [129.7.128.18]) by sclp3.sclp.com (8.8.5/8.8.5) with ESMTP id TAA12743 for ; Mon, 30 Aug 1999 19:27:40 -0400 (EDT) Original-Received: from sina.hpc.uh.edu (lists@Sina.HPC.UH.EDU [129.7.3.5]) by spinoza.math.uh.edu (8.9.1/8.9.1) with ESMTP id SAB06332; Mon, 30 Aug 1999 18:27:37 -0500 (CDT) Original-Received: by sina.hpc.uh.edu (TLB v0.09a (1.20 tibbs 1996/10/09 22:03:07)); Mon, 30 Aug 1999 18:15:04 -0500 (CDT) Original-Received: from sclp3.sclp.com (root@sclp3.sclp.com [204.252.123.139]) by sina.hpc.uh.edu (8.9.3/8.9.3) with ESMTP id SAA21441 for ; Mon, 30 Aug 1999 18:14:48 -0500 (CDT) Original-Received: from newman.aventail.com (root@newman.aventail.com [216.207.80.1]) by sclp3.sclp.com (8.8.5/8.8.5) with ESMTP id TAA12332 for ; Mon, 30 Aug 1999 19:13:34 -0400 (EDT) Original-Received: from megalith.bp.aventail.com (usrpri2-34.kiva.net [206.97.75.99]) by newman.aventail.com (8.8.5/8.8.5) with ESMTP id QAA15493; Mon, 30 Aug 1999 16:12:06 -0700 (PDT) Original-Received: (from wmperry@localhost) by megalith.bp.aventail.com (8.9.3/8.9.3) id SAA02868; Mon, 30 Aug 1999 18:13:35 -0500 Original-To: Karl Kleinpaste X-Now-Listening-To: Beastie - Shadrach X-Face: O~Rn;(l][/-o1sALg4A@xpE:9-"'IR[%;,,!m7 writes: > Mark Buda 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 Lines: 2 --=-=-= Content-Type: application/octet-stream Content-Disposition: attachment; filename=.emacs (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) --=-=-= ------------------------------------------------------------------------------- --=-=-=--