Mercurial > emacs

comparison lisp/gnus/webmail.el @ 90294:c5406394f567

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
Revision: emacs@sv.gnu.org/emacs--unicode--0--patch-13 Merge from emacs--devo--0 Patches applied: * emacs--devo--0 (patch 43-57) - Update from CVS - Merge from erc--emacs--0 - Make constrain-to-field notice overlays - Merge from gnus--rel--5.10 * gnus--rel--5.10 (patch 18-21) - Update from CVS - Merge from emacs--devo--0
author Miles Bader <miles@gnu.org>
date Wed, 08 Feb 2006 04:26:44 +0000
parents 2d92f5c9d6ae d9dde5b81e71
children 95d0cdf160ea
comparison
equal deleted inserted replaced
90293:275e0a144c1d 90294:c5406394f567
1 ;;; webmail.el --- interface of web mail 1 ;;; webmail.el --- interface of web mail
2 2
3 ;; Copyright (C) 1999, 2000, 2001, 2002, 2003, 2004, 3 ;; Copyright (C) 1999, 2000, 2001, 2002, 2003, 2004,
4 ;; 2005 Free Software Foundation, Inc. 4 ;; 2005, 2006 Free Software Foundation, Inc.
5 5
6 ;; Author: Shenghuo Zhu <zsh@cs.rochester.edu> 6 ;; Author: Shenghuo Zhu <zsh@cs.rochester.edu>
7 ;; Keywords: hotmail netaddress my-deja netscape 7 ;; Keywords: hotmail netaddress my-deja netscape
8 8
9 ;; This file is part of GNU Emacs. 9 ;; This file is part of GNU Emacs.
635 (mm-url-remove-markup) 635 (mm-url-remove-markup)
636 (mm-url-decode-entities-nbsp) 636 (mm-url-decode-entities-nbsp)
637 (goto-char (point-min)) 637 (goto-char (point-min))
638 (delete-blank-lines) 638 (delete-blank-lines)
639 (setq ct (mail-fetch-field "content-type") 639 (setq ct (mail-fetch-field "content-type")
640 ctl (ignore-errors (mail-header-parse-content-type ct)) 640 ctl (and ct (mail-header-parse-content-type ct))
641 ;;cte (mail-fetch-field "content-transfer-encoding") 641 ;;cte (mail-fetch-field "content-transfer-encoding")
642 cd (mail-fetch-field "content-disposition") 642 cd (mail-fetch-field "content-disposition")
643 description (mail-fetch-field "content-description") 643 description (mail-fetch-field "content-description")
644 id (mail-fetch-field "content-id")) 644 id (mail-fetch-field "content-id"))
645 (delete-region (point-min) (point-max)) 645 (delete-region (point-min) (point-max))