* Andre Berger <[EMAIL PROTECTED]> wrote: > Christopher Splinter <[EMAIL PROTECTED]> writes: > > * Andre Berger <[EMAIL PROTECTED]> wrote: > > > Christopher Splinter <[EMAIL PROTECTED]> 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 <[EMAIL PROTECTED]>[1]. > Sorry the article is not there.
OK, here it is: ,---- | From: "Robin S. Socha" <[EMAIL PROTECTED]> | Subject: Upgrade auf Gnus 5.8.x (was: Gnus 5.8.2 und mime) | Message-ID: <[EMAIL PROTECTED]> | 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 | ;;*======================================================= | [...] `----