From: czkmt <czkmt>
Date: Thu, 21 Oct 1999 15:25:28 +0000 (+0000)
Subject: (TopLevel): Call `mime-set-field-decoder' when "eword-decode"
X-Git-Tag: t-gnus-6_13_2-11~2
X-Git-Url: http://git.chise.org/cgi-bin/gitweb.cgi?a=commitdiff_plain;h=e09b098c86966fe814963854e48737f90b10e8f0;p=elisp%2Fgnus.git-

(TopLevel): Call `mime-set-field-decoder' when "eword-decode"
is loaded. It is for X-Gnus-Offline-Backend header.
---

diff --git a/lisp/gnus-offline.el b/lisp/gnus-offline.el
index e0e0eb6..079e7bc 100644
--- a/lisp/gnus-offline.el
+++ b/lisp/gnus-offline.el
@@ -1,5 +1,5 @@
 ;;; gnus-offline.el --- To process mail & news at offline environment.
-;;; $Id: gnus-offline.el,v 1.1.2.5.2.36.4.6 1999-09-11 19:30:33 czkmt Exp $
+;;; $Id: gnus-offline.el,v 1.1.2.5.2.36.4.7 1999-10-21 15:25:28 czkmt Exp $
 
 ;;; Copyright (C) 1998 Tatsuya Ichikawa
 ;;;                    Yukihiro Ito
@@ -83,6 +83,9 @@
 (require 'easymenu)
 (provide 'gnus-offline)
 
+(eval-after-load "eword-decode"
+  '(mime-set-field-decoder 'X-Gnus-Offline-Backend nil nil))
+
 (defgroup gnus-offline nil
   "Offline backend utility for Gnus."
   :prefix "gnus-offline-"
@@ -106,10 +109,10 @@
 
 (eval-when-compile
   (mapc
-   #'(lambda (symbol)
-       (unless (boundp symbol)
-	 (make-local-variable symbol)
-	 (eval (list 'setq symbol nil))))
+   (lambda (symbol)
+     (unless (boundp symbol)
+       (make-local-variable symbol)
+       (eval (list 'setq symbol nil))))
    '(nnagent-version
      nnspool-version
      msspool-news-server
@@ -117,9 +120,9 @@
      miee-popup-menu
      gnus-group-toolbar))
   (mapc
-   #'(lambda (symbol)
-       (unless (fboundp symbol)
-	 (defalias symbol 'ignore)))
+   (lambda (symbol)
+     (unless (fboundp symbol)
+       (defalias symbol 'ignore)))
    '(general-process-argument-editing-function
      define-process-argument-editing
      gnspool-get-news
@@ -835,9 +838,8 @@ Please check your .emacs or .gnus.el to work nnspool fine.")
   (mapcar
    #'(lambda (el)
        (if (listp el)
-	   (apply
-	    'vector
-	    (cons (gnus-offline-get-message (car el)) (cdr el)))
+	   (apply 'vector
+		  (cons (gnus-offline-get-message (car el)) (cdr el)))
 	 el))
    list))