From mboxrd@z Thu Jan 1 00:00:00 1970 X-Msuck: nntp://news.gmane.io/gmane.emacs.gnus.user/4247 Path: news.gmane.org!not-for-mail From: Newsgroups: gmane.emacs.gnus.user Subject: attachment questions - notify, and read attachments Date: Sun, 14 Nov 2004 20:48:30 GMT Organization: EarthLink Inc. -- http://www.EarthLink.net Message-ID: NNTP-Posting-Host: main.gmane.org Mime-Version: 1.0 Content-Type: multipart/mixed; boundary="=-=-=" X-Trace: sea.gmane.org 1138670215 22467 80.91.229.2 (31 Jan 2006 01:16:55 GMT) X-Complaints-To: usenet@sea.gmane.org NNTP-Posting-Date: Tue, 31 Jan 2006 01:16:55 +0000 (UTC) Original-X-From: nobody Tue Jan 17 17:33:28 2006 Original-Path: quimby.gnus.org!newsfeed.gazeta.pl!news.nask.pl!news.man.lodz.pl!news.task.gda.pl!newsfeed00.sul.t-online.de!t-online.de!newshub.sdsu.edu!elnk-nf2-pas!newsfeed.earthlink.net!stamper.news.pas.earthlink.net!newsread3.news.pas.earthlink.net.POSTED!fca4fe68!not-for-mail Original-Newsgroups: gnu.emacs.gnus User-Agent: Gnus/5.1006 (Gnus v5.10.6) Emacs/21.2 (gnu/linux) Cancel-Lock: sha1:4Ys75gqNqOmdvHi7PupiD2vcu/s= Original-NNTP-Posting-Host: 63.184.32.87 Original-X-Complaints-To: abuse@earthlink.net Original-X-Trace: newsread3.news.pas.earthlink.net 1100465310 63.184.32.87 (Sun, 14 Nov 2004 12:48:30 PST) Original-NNTP-Posting-Date: Sun, 14 Nov 2004 12:48:30 PST Original-Xref: bridgekeeper.physik.uni-ulm.de gnus-emacs-gnus:4388 Original-Lines: 246 X-Gnus-Article-Number: 4388 Tue Jan 17 17:33:28 2006 Xref: news.gmane.org gmane.emacs.gnus.user:4247 Archived-At: --=-=-= Hi, I've just started using Gnus last week although I am still having troubles with reading attachments - as well as knowing when I have them. As of yesterday I downloaded 5.10.6 and replaced 5.9, but still am not sure how to deal with text, pdf,ps ... attachments I am receiving. I have apparently configured myself so that I do not even know about the attachments until I hit t to toggle all my headers. I see in section 9 p. 316 of the manual discussion of Decoding and Viewing, but haven't yet figured out how to using this information (but I can demonstrate my ability to effortlessly break my .gnus file :) ). Is there a relatively simple line I can add to my .gnus file that will show the attachment in the message; and, at least, allow me to save it (or view it)? I've attacheD my .gnus file as I suspect some things are set incorrectly or can be improved. Also I am attaching it using C-u C-a, and will let default options work - I noticed that sending myself attachments this way sends them encoded in something other than text (octet-stream?) and I would often prefer it to default to a straight text attachment - if there is still such a thing? (ok earthlink gave message won't send application file so I am trying text/plain) --=-=-= Content-Disposition: inline; filename=gnus_bck Content-Description: how to gnus determine appropriate fileform? ;; requires (require 'bbdb-gnus) ;; Tell Gnus about the news server and method for storing mail ; for earthlink need login name and password stored in .authinfo (setq nntp-authinfo-file (expand-file-name "~/.authinfo")) (setq gnus-select-method '(nntp "news.earthlink.net")) (setq gnus-secondary-select-methods '((nnfolder ""))) ;; for sending email (setq user-full-name " ") (setq user-mail-address "concernedconsumer@earthlink.net") (setq message-send-mail-function 'smtpmail-send-it) (setq send-mail-function 'smtpmail-send-it) (setq smtpmail-default-smtp-server "mail.earthlink.net") ;; also view these headers in summary buffer ;(setq gnus-extra-headers ; '(To X-Mailer X-Newsreader Message-Id)) ;; set visible headers in article buffer (setq gnus-visible-headers '("^From:" "^Newsgroups:" "^Subject:" "^Date:" "^Organization:" "^To:" "^Cc:" "Followup-To" "X-Sent:" "X-URL:" "User-Agent:" "X-Newsreader:" "^X-Mailer:" "^Reply-To:" "^Followup-To:" "Posted-To:" "^Summary" "Apparently-To:" "^Mail-Copies-To:" "^X-Attachments" "^Gnus-Warning:")) ;receive mail from follow mail boxes (setq mail-sources '((file))) ;; where to store sent mail (setq gnus-message-archive-method '(nnfolder "archive" (nnfolder-directory "~/Mail/archive") (nnfolder-active-file "~/Mail/archive/active") (nnfolder-get-new-mail nil) (nnfolder-inhibit-expiry t))) (setq gnus-message-archive-group '((concat "sent-mail-" (format-time-string "%Y" (current-time))))) ;; one yearly sent-mail file ;; splitting mail (setq nnmail-split-methods '(("junk" "^Subject:.*viagra") ("consumer" "^To:.*concernedconsumer") ("consumer" "Received:.*concerned") ("inbox" ""))) (setq nnmail-expiry-wait-function (lambda (group) (cond ((string= group "inbox") 'never) ( (string= group "junk") 60) (t 300)))) ;; set some faces (see manual p. 359) ;; first define color foregrounds (copy-face 'bold 'my-green) (set-face-foreground 'my-green "ForestGreen") ;; \gnusr{create three face types. 12.4.5 usr manual p. 358} (setq gnus-face-1 'bold) (setq gnus-face-2 'my-green) (setq gnus-face-3 'italic) ;; set format for group lines and show all groups (setq gnus-group-line-format "%M%S%p%P%5y: %(%G%)%l\n") (gnus-group-list-all-groups) ;also make all groups visible ;(setq gnus-permanently-visible-groups "[^nndraft:(drafts|delayed)]") ;; summary buffer ( manual section 3.1.1 p. 53) ;(defun gnus-user-format-function-d (header) ; "Render date in (dd/mm) format" ; (let* ((date (mail-header-date header)) ; (tz (timezone-parse-date date))) ; (format "%02d/%02d" ; (string-to-int (aref tz 2)) ; (string-to-int (aref tz 1))))) (defun gnus-user-format-function-d (header) ; "Render date in (dd/mm) format" (let* ((date (mail-header-date header)) (tz (timezone-parse-date date))) (format "%s/%s/%s" (aref tz 1) (aref tz 2) (aref tz 0)))) (setq gnus-summary-line-format "%U%R %ud %I %(%[%2{ %-21,21f%} %]%) %B%s\n") ;(setq gnus-summary-line-format "%U%R%o%I%(%[%-23,23f%]%) %s\n") ;; (see manual p. 57) (setq gnus-ignored-from-addresses "concernedconsumer@") (setq gnus-extra-headers '(To Newsgroup)) (setq nnmail-extra-headers gnus-extra-headers) ;(setq gnus-summary-line-format "%U%R%z %4i %([%4L: %-25,25f]%) %s\n") ;(setq gnus-summary-same-subject "-||-") ;;highlighting and menus ;(setq gnus-visual '(highlight)) (setq gnus-visual t) ;;nifty window configurations (see manual section 12.5 p. 360) (gnus-add-configuration '(article (horizontal 1.0 (vertical 25 (group 1.0)) (vertical 1.0 (summary 0.23 point) (article 1.0))))) (gnus-add-configuration '(summary (horizontal 1.0 (vertical 25 (group 1.0)) (vertical 1.0 (summary 1.0 point))))) ;; bbdb settings (bbdb-initialize) (add-hook 'gnus-startup-hook 'bbdb-insinuate-gnus) (add-hook 'gnus-startup-hook 'bbdb-insinuate-message) (add-hook 'gnus-startup-hook 'bbdb-define-all-aliases) ;; web browser ;(setq browse-url-browser-function 'browse-url-w3m) ;;dired support (new in gnus 5.10.6) (require 'gnus-dired) (add-hook 'dired-mode-hook 'turn-on-gnus-dired-mode) ;; Signature separators (setq gnus-signature-separator '("^-- $" ; The standard "^-- *$" ; A common mangling "^-------*$" ; Many people just use a looong line of dashes. Shame! "^ *--------*$" ; Double-shame! "^________*$" ; Underscores are also popular "^========*$")) ; Pervert! (setq gnus-signature-limit nil) ;; to fix broken gnus attachment for pdf's (setq mm-content-transfer-encoding-defaults (cons '("application/pdf" base64) mm-content-transfer-encoding-defaults)) ;; check attachments are attached ;; from Daniel Barlow's Online Diary (http://ww.telent.net/diary/2003/1/) (defun check-attachments-attached () (interactive) (save-excursion (goto-char (point-min)) (let* ( ;; Nil when message came from outside (eg calling emacs as editor) ;; Non-nil marker of end of headers. (internal-messagep (re-search-forward (concat "^" (regexp-quote mail-header-separator) "$") nil t)) (end-of-headers ; Start of body. (copy-marker (or internal-messagep (re-search-forward "^$" nil t) (point-min)))) (limit (or (re-search-forward "^-- $" nil t) (point-max))) (old-case-fold-search case-fold-search)) (unwind-protect (progn (goto-char end-of-headers) (when (search-forward "attach" limit t) (goto-char end-of-headers) ;; the word 'attach' has been used, can we find an ;; attachment? (unless (or (re-search-forward "^<#/" limit t) (y-or-n-p "Found the word `attach' but no MIME attachment: send anyway?" ) (error "Aborted send"))))) (set-marker end-of-headers nil))))) ; (add-hook 'message-send-hook 'check-attachments-attached) --=-=-= Many Thanks! -J. --=-=-=--