(mime-insert-header): Renamed from `mime-insert-decoded-header';

define `mime-insert-decoded-header' as an obsolete alias.

diff --git a/mime.el b/mime.el
index f8b33c0..293b3e7 100644 (file)
--- a/mime.el
+++ b/mime.el
@@ -289,10 +289,13 @@ If MESSAGE is specified, it is regarded as root entity."
                    entity (put-alist field-name field header))
                   field)))))))
 
-(mm-define-generic insert-decoded-header (entity &optional invisible-fields
-                                         visible-fields)
+(mm-define-generic insert-header (entity &optional invisible-fields
+                                        visible-fields)
   "Insert before point a decoded header of ENTITY.")
 
+(define-obsolete-function-alias
+  'mime-insert-decoded-header 'mime-insert-header)
+
 
 ;;; @ Entity Attributes
 ;;;