|
From: | Leon |
Subject: | Re: indicate email has attachment in summary buffer |
Date: | Fri, 04 Aug 2006 13:01:21 +0100 |
User-agent: | Gnus/5.11 (Gnus v5.11) Emacs/23.0.0 (gnu/linux) |
Leon <sdl.web@gmail.com> writes: > > I have adapt one function from rs-gnus-summary.el as: > > (defun gnus-user-format-function-@ (header) > "Display @ for message with attachment in summary line. > > You need to add `Content-Type' to `nnmail-extra-headers' and > `gnus-extra-headers', see Info node `(gnus)To From Newsgroups'." > (let ((case-fold-search t) > (ctype (or (cdr (assq 'Content-Type (mail-header-extra header))) ^This will always return nil in newsgroup emails. Any ideas? > "text/plain")) > indicator) > (when (string-match "^multipart/mixed" ctype) > (setq indicator "@")) > (if indicator > indicator > " "))) > > As you can see, I only match "^multipart/mixed" with Content-type. Do > you think this is reliable to match all emails with attachment? > > Thank you. -- Leon
[Prev in Thread] | Current Thread | [Next in Thread] |