Re: Xemacs/GNUs and decoding attachments
* Andre Berger <uzscd5@uni-bonn.de> wrote:
> Christopher Splinter <chris@splinter.inka.de> writes:
> > * Andre Berger <uzscd5@uni-bonn.de> wrote:
> > > Christopher Splinter <chris@splinter.inka.de> writes:
> > > > If you use tm, you probably also use Gnus < 5.8.0, right? You
> > > > should upgrade.
> > > I did, and the problem is gone. But I get errors on startup:
> > [...]
> > Have a look at <deathsquad.m33dstilab.fsf@socha.net>[1].
> Sorry the article is not there.
OK, here it is:
,----
| From: "Robin S. Socha" <robin@socha.net>
| Subject: Upgrade auf Gnus 5.8.x (was: Gnus 5.8.2 und mime)
| Message-ID: <deathsquad.m33dstilab.fsf@socha.net>
| Newsgroups: de.comp.gnu
|
| [...]
| ;;*================================
| ;;* MIME Settings for PGnus
| ;;*================================
| (require 'mm-util)
| (defun mm-read-charset (prompt)
| "Return a charset."
| 'iso-8859-1)
| (setq gnus-default-posting-charset (quote iso-8859-1))
|
| ;;*================================
| ;;* Workaround for quoted printable encoding of attachments
| ;;*================================
| (setq mm-content-transfer-encoding-defaults
| '(("text/x-patch" 8bit)
| ("text/.*" qp-or-base64)
| ("message/rfc822" 8bit)
| ("application/emacs-lisp" 8bit)
| ("application/x-patch" 8bit)
| (".*" base64)))
| ;;*================================
| ;;* Decode RFC2047-encoded words in the article headers
| ;;*================================
| (setq gnus-article-decode-mime-words t)
| ;;*================================
| ;;* Decode encoded article bodies as well as charsets
| ;;This command looks in the `Content-Type' header to determine the
| ;;charset. If there is no such header in the article, you can give
| ;;it a prefix, which will prompt for the charset to decode as. In
| ;;regional groups where people post using some common encoding (but
| ;;do not include MIME headers), you can set the `charset' group/topic
| ;;parameter to the required charset
| ;;*================================
| (setq gnus-article-decode-charset 1)
| ;;*================================
| ;;* View all the MIME parts in the current article
| ;;*================================
| (setq gnus-mime-view-all-parts t)
| ;;*================================
| ;;* To have all Vcards be ignored, you'd say something like this:
| ;;*================================
| (setq gnus-ignored-mime-types
| '("text/x-vcard"))
| ;;*================================
| ;;* List of MIME types that should not be given buttons when rendered.
| ;;*================================
| (setq gnus-unbuttonized-mime-types nil)
| ;;*================================
| ;;*
| ;;*================================
| ;;* This replaces the obsolete "gnus-article-display-hook" functions.
| ;;*================================
| (setq
| ;; Add buttons
| gnus-treat-buttonize t
| ;; Add buttons to the head
| gnus-treat-buttonize-head 'head
| ;; Emphasize text
| gnus-treat-emphasize t
| ;; Fill the article
| gnus-treat-fill-article nil
| ;; Remove carriage returns
| gnus-treat-strip-cr 'last
| ;; Hide headers
| gnus-treat-hide-headers 'head
| ;; Hide boring headers
| gnus-treat-hide-boring-headers 'head
| ;; Hide the signature if > 5 lines
| gnus-treat-hide-signature nil
| ;; Hide cited text
| gnus-treat-hide-citation nil
| ;; Strip PGP signatures
| gnus-treat-strip-pgp 'last
| ;; Strip PEM signatures
| gnus-treat-strip-pem 'last
| ;; Highlight the headers
| gnus-treat-highlight-headers 'head
| ;; Highlight cited text
| gnus-treat-highlight-citation 'last
| ;; Highlight the signature
| gnus-treat-highlight-signature 'last
| ;; Display the Date in UT (GMT)
| gnus-treat-date-ut nil
| ;; Display the Date in the local timezone
| gnus-treat-date-local nil
| ;; Display the Date header in a way that says how much time has elapsed
| gnus-treat-date-lapsed 'head
| ;; Display the date in the original timezone
| gnus-treat-date-original nil
| ;; Strip trailing blank lines
| gnus-treat-strip-trailing-blank-lines 'last
| ;; Strip leading blank lines
| gnus-treat-strip-leading-blank-lines 'last
| ;; Strip multiple blank lines
| gnus-treat-strip-multiple-blank-lines 'last
| ;; Strip all blank lines
| gnus-treat-strip-blank-lines nil
| ;; Treat overstrike highlighting
| gnus-treat-overstrike 'last
| ;; Strip multiple blank lines
| gnus-treat-strip-multiple-blank-lines t
| ;; Display the Date header in a way that says how much time has elapsed
| gnus-treat-date-lapsed 'head
| ;; If non-nil, subjects will be ignored when doing thread commands
| gnus-thread-operation-ignore-subject 'fuzzy
| ;; If non-nil, save group scoring info
| gnus-save-score t
| )
| ;;*================================
| ;;* For each MIME part, this function will be called with the MIME handle
| ;;* as the parameter. The function is meant to be used to allow users to
| ;;* gather information from the article (e. g., add Vcard info to the bbdb
| ;;* database) or to do actions based on parts (e. g., automatically save
| ;;* all jpegs into some directory).
| ;;*================================
| ;(defun my-save-all-jpeg-parts (handle)
| ; (when (equal (car (mm-handle-type handle)) "image/jpeg")
| ; (with-temp-buffer
| ; (insert (mm-get-part handle))
| ; (write-region (point-min) (point-max)
| ; (read-file-name "Save jpeg to: ")))))
| ;(setq gnus-article-mime-part-function
| ; 'my-save-all-jpeg-parts)
| ;;*=======================================================
| ;;* E N D P G N U S S E T T I N G S
| ;;*=======================================================
| [...]
`----
Reply to: