Mercurial > hg > xemacs-beta

comparison lisp/vm/vm-reply.el @ 120:cca96a509cfe r20-1b12

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
Import from CVS: tag r20-1b12
author cvs
date Mon, 13 Aug 2007 09:25:29 +0200
parents 8619ce7e4c50
children 1370575f1259
comparison
equal deleted inserted replaced
119:d101af7320b8 120:cca96a509cfe
295 (cond ((vm-mime-types-match "multipart" type) 295 (cond ((vm-mime-types-match "multipart" type)
296 (setq parts (copy-sequence (vm-mm-layout-parts o)))) 296 (setq parts (copy-sequence (vm-mm-layout-parts o))))
297 (t (setq parts (list o)))) 297 (t (setq parts (list o))))
298 (while parts 298 (while parts
299 (cond ((vm-mime-text-type-p (car parts)) 299 (cond ((vm-mime-text-type-p (car parts))
300 (if (vm-mime-display-internal-text/plain (car parts) t) 300 (if (cond ((vm-mime-types-match
301 "text/html"
302 (car (vm-mm-layout-type (car parts))))
303 (vm-mime-display-internal-text/html
304 (car parts)))
305 ((vm-mime-types-match
306 "text/enriched"
307 (car (vm-mm-layout-type (car parts))))
308 (vm-mime-display-internal-text/enriched
309 (car parts)))
310 ((vm-mime-display-internal-text/plain
311 (car parts) t)))
301 nil 312 nil
302 ;; charset problems probably 313 ;; charset problems probably
303 ;; just dump the raw bits 314 ;; just dump the raw bits
304 (vm-mime-insert-mime-body (car parts)) 315 (vm-mime-insert-mime-body (car parts))
305 (vm-mime-transfer-decode-region (car parts) 316 (vm-mime-transfer-decode-region (car parts)
1000 (insert "Subject: " (or subject "") "\n") 1011 (insert "Subject: " (or subject "") "\n")
1001 (and newsgroups (insert "Newsgroups: " newsgroups "\n")) 1012 (and newsgroups (insert "Newsgroups: " newsgroups "\n"))
1002 (and in-reply-to (insert "In-Reply-To: " in-reply-to "\n")) 1013 (and in-reply-to (insert "In-Reply-To: " in-reply-to "\n"))
1003 (and references (insert "References: " references "\n")) 1014 (and references (insert "References: " references "\n"))
1004 (insert "X-Mailer: VM " vm-version " under " 1015 (insert "X-Mailer: VM " vm-version " under "
1005 (if (vm-fsfemacs-19-p) "Emacs " "") 1016 (if vm-fsfemacs-19-p "Emacs " "")
1006 emacs-version "\n") 1017 emacs-version "\n")
1007 ;; REPLYTO support for FSF Emacs v19.29 1018 ;; REPLYTO support for FSF Emacs v19.29
1008 (and (eq mail-default-reply-to t) 1019 (and (eq mail-default-reply-to t)
1009 (setq mail-default-reply-to (getenv "REPLYTO"))) 1020 (setq mail-default-reply-to (getenv "REPLYTO")))
1010 (if mail-default-reply-to 1021 (if mail-default-reply-to