;; You should have received a copy of the GNU General Public License
;; along with GNU Emacs; see the file COPYING. If not, write to the
-;; Free Software Foundation, Inc., 59 Temple Place - Suite 330,
-;; Boston, MA 02111-1307, USA.
+;; Free Software Foundation, Inc., 51 Franklin Street, Fifth Floor,
+;; Boston, MA 02110-1301, USA.
;;; Code:
(require 'luna)
+(eval-when-compile
+ (require 'eword-decode) ; mime-find-field-presentation-method
+ )
+
;;; @ MIME entity
;;;
(luna-define-method mime-entity-fetch-field ((entity mime-entity)
field-name)
(or (symbolp field-name)
- (setq field-name (intern (capitalize (capitalize field-name)))))
+ (setq field-name (intern (capitalize field-name))))
(cdr (assq field-name
(mime-entity-original-header-internal entity))))