git.chise.org Git - elisp/gnus.git-/blob - Nana-TIPS.ja

   1 -*- mode: text; fill-column: 70; -*-
   2
   3 \e$B$3$NJ8=q$G$O!"\e(B Semi-gnus \e$B$H$N0c$$$*$h$S!";HMQ$9$k>e$GCm0U$9$kI,MW$N$"\e(B
   4 \e$B$k9`L\$r@bL@$7$F$$$^$9!#\e(B
   5
   6 ---
   7 TODO.ja \e$B$N!V\e(B*1998/10/03-01 \e$BG$0U%a%C%;!<%8\e(B cite \e$B5!G=$N<BAuJ}K!JQ99!W$r\e(B
   8 \e$BBP:v:Q$G$9!#\e(B
   9
  10 ;; \e$B<BAuJ}K!$O!"\e(B mime-message-structure \e$B$N;EMM$,0BDj$7<!Bh!"JQ99$9$k2D\e(B
  11 ;; \e$BG=@-$,$"$j$^$9!#\e(B
  12
  13 ---
  14 message-syntax-checks
  15 message-default-encoding (Default: "7bit")
  16
  17 Message \e$B$NAw?.;~$K\e(B Content-Transfer-Encoding \e$B$r%A%'%C%/$9$k$h$&$K$7$^\e(B
  18 \e$B$7$?!#\e(B
  19 \e$B%A%'%C%/$N4p=`$O\e(B header \e$B$K\e(B Content-Transfer-Encoding \e$B$,;XDj$5$l$F$$$k\e(B
  20 \e$B>l9g$K$O!"$=$l$K=>$$!";XDj$5$l$F$$$J$$>l9g$K$O!"\e(B
  21 message-default-encoding \e$B$G;XDj$5$l$F$$$k\e(B encodeing \e$B$K=>$$$^$9!#\e(B
  22
  23 \e$B$3$N%A%'%C%/$r9T$$$?$/$J$$>l9g$K$O!"\e(B message-syntax-checks \e$B$K\e(B
  24 '(encoding . disable) \e$B$rDI2C$7$F$/$@$5$$!#\e(B
  25 ---
  26 message-header-hook
  27
  28 message-header-encode-function (Default: 'eword-encode-header)
  29 *6.9.4: message-encode-header-function \e$B$+$i2~L>\e(B
  30
  31 message-header-encode-hook (Default: nil)
  32 *6.9.4: message-after-header-encode-hook \e$B$+$i2~L>\e(B
  33
  34 Header \e$B$r\e(B encode \e$B$9$k$?$a$N4X?t$r!"\e(B Semi-gnus \e$B$G$O\e(B message-header-hook
  35 \e$B$+$i8F$S=P$7$F$$$^$9$,!"@lMQ$NJQ?t$r$b$&$1!"\e(B message-header-hook \e$B$N<B\e(B
  36 \e$B9T8e$K$3$NJQ?t$K@_Dj$5$l$?4X?t$r8F$S=P$7$^$9!#\e(B
  37
  38 \e$B$^$?!"?7$?$K\e(B message-header-encode-hook \e$B$r$b$&$1!"\e(B
  39 message-header-encode-function \e$B$N8F$S=P$78e$K$3$N\e(B hook \e$B$r<B9T$7$^$9!#\e(B
  40
  41 message-setup-hook \e$B$NFbMF$rJQ99$7$F$$$kJ}$O!"Cm0U$,I,MW$G$9!#\e(B
  42
  43 X-PGP-Sig \e$B%Q%C%1!<%8$r;HMQ$7$F$*$j!"\e(B message-header-hook \e$B$K\e(B
  44 x-pgp-sig-sign \e$B$r@_Dj$5$l$F$$$kJ}$O!"\e(B \e$B@_Dj@h$r\e(B
  45 message-header-encode-hook \e$B$K0\F0$7$F$/$@$5$$!#\e(B
  46
  47 ---
  48 Chao-gnus 6.9 \e$B$G$NJQ99$r<h$j9~$s$G$"$j$^$9$N$G!"\e(B apel \e$B$O\e(B 9.5 \e$B0J9_$N$b\e(B
  49 \e$B$N!"\e(B FLIM \e$B$O\e(B 1.11.2 \e$B0J9_$N$b$N\e(B SEMI \e$B$O\e(B 1.10.0 \e$B0J9_$N$b$N$,I,MW$G$9!#\e(B
  50
  51 \e$B$^$?!"\e(B BBDB \e$B$r;HMQ$5$l$F$$$kJ}$O!"\e(B bbdb-gnus.elc \e$B$r\e(B Semi-gnus 6.8.X \e$B0J\e(B
  52 \e$BA0$N$b$N$H6&M-$9$k$3$H$O$G$-$^$;$s!#I,$:!"\e(B byte-compile \e$B$7D>$7$F$/$@$5\e(B
  53 \e$B$$!#\e(B
  54 ;; gnus \e$B$r5/F0$7$?$"$H$G!"\e(B bbdb-gnus.el \e$B$N$_$r\e(B byte-compile \e$B$9$k$H$$$&\e(B
  55 ;; \e$B$N$,$*<j7Z$G$9!#\e(B :-)
  56
  57 ---
  58 gnus-bbdb.el
  59
  60 Chao-gnus 6.9 \e$B$r<h$j9~$s$@\e(B Semi-gnus \e$B$KFC2=$7$?\e(B BBDB API \e$B%b%8%e!<%k$G\e(B
  61 \e$B$9!#\e(B
  62 \e$B$3$N%b%8%e!<%k$r;HMQ$9$k$3$H$K$h$C$F!"\e(B Semi-gnus \e$B$G;HMQ$9$k>l9g$K$O\e(B
  63 mime-bbdb \e$B$,ITMW$K$J$j$^$9!#\e(B
  64
  65 1.11.2 \e$B0J9_$N\e(B FLIM \e$B$,I,MW$G$9!#\e(B
  66
  67 bbdb-auto-notes-hook \e$B$r;HMQ$7$F$$$J$$J}$K$OITMW$G$9$,!";HMQ$7$F$$$kJ}\e(B
  68 \e$B$O\e(B bbdb.el / bbdb-hooks.el \e$B$K$3$N%U%!%$%k$N:G8e$K$"$k\e(B patch \e$B$r$"$F$kI,\e(B
  69 \e$BMW$,$"$j$^$9!#\e(B
  70
  71 \e$B@_DjNc\e(B:
  72
  73 ;; mime-bbdb \e$B$K4X$9$k@_Dj$OITMW$G$9!#\e(B
  74 ;(setq mime-bbdb/use-mail-extr nil)
  75 ;(eval-after-load "mail-extr" '(require 'mime-bbdb))
  76
  77 (require 'bbdb)
  78 (require 'gnus-bbdb)
  79 (bbdb-initialize 'sc)  ;; 'gnus / 'Gnus \e$B$O$O$:$7$F$/$@$5$$!#\e(B
  80 (add-hook 'gnus-startup-hook 'gnus-bbdb-insinuate)
  81
  82 FLIM \e$B$G$O\e(B quote \e$B$5$l$?\e(B eword encoded word \e$B$O\e(B decode \e$B$5$l$^$;$s$,!"$=$l\e(B
  83 \e$B$r6/@)E*$K\e(B decode \e$B$7$?$$>l9g$K$O!"<!$N@_Dj$r2C$($F$/$@$5$$!#\e(B
  84
  85 (setq gnus-bbeb/decode-field-body-function
  86       (function
  87        (lambda (field-body field-name)
  88          (eword-decode-string field-body))))
  89
  90 --- 6.9.4: \e$B$G$3$NJQ99$OGQ;_$7$^$7$?!#\e(B
  91 message-setup-hook (Default: nil)
  92 message-mime-setup-function (Default: 'turn-on-mime-edit)
  93
  94 Message \e$BJT=8MQ\e(B buffer \e$B$r\e(B MIME \e$B%a%C%;!<%8JT=8%b!<%I$K@Z$jBX$($k$?$a$N4X\e(B
  95 \e$B?t$r!"\e(B Semi-gnus \e$B$G$O\e(B message-setup-hook \e$B$+$i8F$S=P$7$F$$$^$9$,!"@lMQ\e(B
  96 \e$B$NJQ?t$r$b$&$1!"\e(B message-setup-hook \e$B$N<B9TA0$K$3$NJQ?t$K@_Dj$5$l$?4X?t\e(B
  97 \e$B$r8F$S=P$7$^$9!#\e(B
  98
  99 message-setup-hook \e$B$NFbMF$rJQ99$7$F$$$kJ}$OCm0U$,I,MW$G$9!#\e(B
 100 ---
 101
 102 *** org/bbdb.el Tue May 12 10:51:51 1998
 103 --- bbdb.el     Thu Oct 29 11:52:25 1998
 104 ***************
 105 *** 620,625 ****
 106 --- 620,626 ----
 107   (defvar bbdb-showing-changed-ones nil)
 108   (defvar bbdb-modified-p nil)
 109   (defvar bbdb-elided-display nil)
 110 + (defvar bbdb-extract-field-value-function-list nil)
 111
 112   (defvar bbdb-debug t)
 113   (defmacro bbdb-debug (&rest body)
 114
 115 ---
 116 *** org/bbdb-hooks.el   Tue May 12 10:51:49 1998
 117 --- bbdb-hooks.el       Thu Oct 29 13:03:52 1998
 118 ***************
 119 *** 352,363 ****
 120         (marker (bbdb-header-start))
 121         field pairs fieldval  ; do all bindings here for speed
 122         regexp string notes-field-name notes
 123 !        replace-p replace-or-add-msg)
 124       (set-buffer (marker-buffer marker))
 125       (save-restriction
 126 !       (widen)
 127 !       (goto-char marker)
 128 !       (if (and (setq fieldval (bbdb-extract-field-value "From"))
 129                (string-match (bbdb-user-mail-names) fieldval))
 130           ;; Don't do anything if this message is from us.  Note that we have
 131           ;; to look at the message instead of the record, because the record
 132 --- 352,373 ----
 133         (marker (bbdb-header-start))
 134         field pairs fieldval  ; do all bindings here for speed
 135         regexp string notes-field-name notes
 136 !       replace-p replace-or-add-msg
 137 !       extract-field-value-funtion)
 138       (set-buffer (marker-buffer marker))
 139       (save-restriction
 140 !       (let ((function-list bbdb-extract-field-value-function-list)
 141 !           function)
 142 !       (or (progn
 143 !             (while (and (not extract-field-value-funtion)
 144 !                         (setq function (pop function-list)))
 145 !               (setq extract-field-value-funtion (funcall function)))
 146 !             extract-field-value-funtion)
 147 !           (progn
 148 !             (widen)
 149 !             (goto-char marker)
 150 !             (setq extract-field-value-funtion 'bbdb-extract-field-value))))
 151 !       (if (and (setq fieldval (funcall extract-field-value-funtion "From"))
 152                (string-match (bbdb-user-mail-names) fieldval))
 153           ;; Don't do anything if this message is from us.  Note that we have
 154           ;; to look at the message instead of the record, because the record
 155 ***************
 156 *** 368,374 ****
 157           (goto-char marker)
 158           (setq field (car (car ignore-all))
 159                 regexp (cdr (car ignore-all))
 160 !               fieldval (bbdb-extract-field-value field))
 161           (if (and fieldval
 162                    (string-match regexp fieldval))
 163               (setq ignore t)
 164 --- 378,384 ----
 165           (goto-char marker)
 166           (setq field (car (car ignore-all))
 167                 regexp (cdr (car ignore-all))
 168 !               fieldval (funcall extract-field-value-funtion field))
 169           (if (and fieldval
 170                    (string-match regexp fieldval))
 171               (setq ignore t)
 172 ***************
 173 *** 382,388 ****
 174                 pairs (cdr (car rest))  ; (REGEXP . STRING) or
 175                                         ; (REGEXP FIELD-NAME STRING) or
 176                                         ; (REGEXP FIELD-NAME STRING REPLACE-P)
 177 !               fieldval (bbdb-extract-field-value field)) ; e.g., Subject line
 178           (if fieldval
 179               (while pairs
 180                 (setq regexp (car (car pairs))
 181 --- 392,398 ----
 182                 pairs (cdr (car rest))  ; (REGEXP . STRING) or
 183                                         ; (REGEXP FIELD-NAME STRING) or
 184                                         ; (REGEXP FIELD-NAME STRING REPLACE-P)
 185 !               fieldval (funcall extract-field-value-funtion field)) ; e.g., Subject line
 186           (if fieldval
 187               (while pairs
 188                 (setq regexp (car (car pairs))
 189
 190 ---