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