Re: indicate email has attachment in summary buffer

[Leon]

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