diff lisp/tm/gnus-art-mime.el @ 16:0293115a14e9 r19-15b91

Import from CVS: tag r19-15b91
author cvs
date Mon, 13 Aug 2007 08:49:20 +0200
parents 4b173ad71786
children 131b0175ea99
line wrap: on
line diff
--- a/lisp/tm/gnus-art-mime.el	Mon Aug 13 08:48:43 2007 +0200
+++ b/lisp/tm/gnus-art-mime.el	Mon Aug 13 08:49:20 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.2 1996/12/22 00:29:34 steve Exp $
+;;	$Id: gnus-art-mime.el,v 1.3 1997/02/02 05:06:18 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
 ;;;