Leon <[EMAIL PROTECTED]> 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
_______________________________________________
info-gnus-english mailing list
[email protected]
http://lists.gnu.org/mailman/listinfo/info-gnus-english
