Mercurial > hg > xemacs-beta
diff lisp/tm/gnus-art-mime.el @ 98:0d2f883870bc r20-1b1
Import from CVS: tag r20-1b1
author | cvs |
---|---|
date | Mon, 13 Aug 2007 09:13:56 +0200 |
parents | 54cc21c15cbb |
children |
line wrap: on
line diff
--- a/lisp/tm/gnus-art-mime.el Mon Aug 13 09:12:43 2007 +0200 +++ b/lisp/tm/gnus-art-mime.el Mon Aug 13 09:13:56 2007 +0200 @@ -1,11 +1,11 @@ ;;; gnus-art-mime.el --- MIME extension for article mode of Gnus -;; Copyright (C) 1995,1996 Free Software Foundation, Inc. +;; Copyright (C) 1995,1996,1997 Free Software Foundation, Inc. ;; Author: MORIOKA Tomohiko <morioka@jaist.ac.jp> ;; Created: 1996/8/6 ;; Version: -;; $Id: gnus-art-mime.el,v 1.1.1.2 1996/12/21 20:50:48 steve Exp $ +;; $Id: gnus-art-mime.el,v 1.2 1997/02/15 22:21:25 steve Exp $ ;; Keywords: news, MIME, multimedia, multilingual, encoded-word ;; This file is not part of GNU Emacs yet. @@ -46,7 +46,7 @@ ;;; RFC 1522 and it does not do unfolding. So gnus-mime defines own ;;; function using tm-ew-d. -(defun gnus-decode-rfc1522 () +(defun gnus-decode-encoded-word () (goto-char (point-min)) (if (re-search-forward "^[0-9]+\t" nil t) (progn @@ -63,6 +63,10 @@ (mime-eword/decode-region (point-min)(point-max) t) )) +(defalias 'gnus-decode-rfc1522 'gnus-decode-encoded-word) + +;; In addition, latest RFC about encoded-word is RFC 2047. (^_^; + ;;; @ article filter ;;;