gnus/tm-gd5.el

   1 ;;;
   2 ;;; tm-gd5.el --- tm-gnus module for Gnus 5.*.
   3 ;;;
   4 ;;; Copyright (C) 1995 Free Software Foundation, Inc.
   5 ;;; Copyright (C) 1995 MORIOKA Tomohiko
   6 ;;;
   7 ;;; Author: MORIOKA Tomohiko <morioka@jaist.ac.jp>
   8 ;;; Version:
   9 ;;;     $Id: tm-gd5.el,v 1.1 1995/11/19 08:11:47 morioka Exp $
  10 ;;; Keywords: news, MIME, multimedia, multilingual, encoded-word
  11 ;;;
  12 ;;; This file is part of tm (Tools for MIME).
  13 ;;;
  14
  15 (cond ((not (boundp 'nnheader-encoded-words-decoding))
  16        (require 'tm-ew-d)
  17
  18        (defun tm-gnus/decode-summary-from-and-subjects ()
  19          (mapcar (lambda (header)
  20                    (let ((from (mail-header-from header))
  21                          (subj (mail-header-subject header))
  22                          )
  23                      (mail-header-set-from
  24                       header
  25                       (if from
  26                           (mime-eword/decode-string from)
  27                         ""))
  28                      (mail-header-set-subject
  29                       header
  30                       (if subj
  31                           (mime-eword/decode-string subj)
  32                         ""))
  33                      ))
  34                  gnus-newsgroup-headers)
  35          )
  36
  37        (add-hook 'gnus-select-group-hook
  38                  (function tm-gnus/decode-summary-from-and-subjects))
  39        ))
  40
  41
  42 ;;; @ end
  43 ;;;
  44
  45 (provide 'tm-gd5)