+2004-09-30 Simon Josefsson <jas@extundo.com>
+
+ * Makefile.in (GNUS-NEWS): Depend on texi/gnus-news.texi.
+
+ * GNUS-NEWS: Generated.
+
2004-09-30 Katsumi Yamaoka <yamaoka@jpl.org>
* lisp/gnus-encrypt.el: Bind password-cache-expiry when compiling.
** Gnus now view DNS master files sent as text/dns using dns-mode.
** Gnus now support the "hashcash" client puzzle anti-spam idea. See
-the Gnus manual, section Hashcash, for more information.
+the Gnus manual, section Hashcash, for more information. Use (setq
+message-generate-hashcash t) to enable.
\f
* For older news, see Gnus info node "New Features".
cd texi && $(MAKE) uninstall
cd etc && $(MAKE) uninstall
-GNUS-NEWS:
+GNUS-NEWS: texi/gnus-news.texi
cd texi && $(MAKE) GNUS-NEWS
# Rule for Lars and nobody else.
+2004-09-30 Simon Josefsson <jas@extundo.com>
+
+ * message.el (message-generate-hashcash): Add.
+ (message-send-mail): Use it, call mail-add-payment.
+
2004-09-29 Teodor Zlatanov <tzz@lifelogs.com>
* spam.el (spam-verify-bogofilter): -V, not -sV option
(require 'cl)
(require 'smtp)
(defvar gnus-message-group-art)
- (defvar gnus-list-identifiers)) ; gnus-sum is required where necessary
+ (defvar gnus-list-identifiers) ; gnus-sum is required where necessary
+ (require 'hashcash))
(require 'canlock)
(require 'mailheader)
(require 'nnheader)
(const :tag "Never" nil)
(const :tag "Always" t)))
+(defcustom message-generate-hashcash nil
+ "*Whether to generate X-Hashcash: headers."
+ :group 'message-headers
+ :link '(custom-manual "(message)Mail Headers")
+ :type 'boolean)
+
;;; Internal variables.
(defvar message-sending-message "Sending...")
(message-this-is-mail t)
(headers message-required-mail-headers)
failure)
+ (when message-generate-hashcash
+ (save-restriction
+ (message-narrow-to-headers)
+ (message-remove-header "X-Hashcash"))
+ (message "Generating hashcash...")
+ (mail-add-payment)
+ (message "Generating hashcash...done"))
(save-restriction
(message-narrow-to-headers)
;; Generate the Mail-Followup-To header if the header is not there...
+2004-09-30 Simon Josefsson <jas@extundo.com>
+
+ * gnus-news.texi: Add.
+
+ * message.texi (Mail Headers): Add.
+
+ * gnus.texi (Hashcash): Fix.
+
2004-09-29 Simon Josefsson <jas@extundo.com>
* gnus-news.texi: Add.
\e$B$O\e(B @uref{http://www.cypherspace.org/~adam/hashcash/} \e$B$r;2>H$7$F2<$5$$!#\e(B
\e$B$5$i$J$k>pJs$,\e(B @uref{http://www.camram.org/} \e$B$G8+$D$+$k$G$7$g$&!#\e(B
-\e$BAw?.$9$k%a%C%;!<%8$N$=$l$>$l$K$D$$$F\e(B hashcash \e$B$r8F$\$&$H;W$&$J$i!"$3$s$J\e(B
-\e$B$U$&$K$7$F2<$5$$\e(B:
+\e$BAw?.$9$k%a%C%;!<%8$N$=$l$>$l$K$D$$$F\e(B hashcash \e$B$r@8@.$5$;$h$&$H;W$&$J$i!"\e(B
+\e$B0J2<$N$h$&$K\e(B @code{message-generate-hashcash} (@pxref{Mail Headers,,Mail
+Headers,message-ja, The Message Manual}) \e$B$r%+%9%?%^%$%:$7$F2<$5$$\e(B:
@lisp
-(add-hook 'message-send-hook 'mail-add-payment)
+(setq message-generate-hashcash t)
@end lisp
-@file{hashcash.el} \e$B%i%$%V%i%j$O\e(B Gnus \e$B$NCf$G!"$^$?\e(B
-\e$B$O\e(B @uref{http://users.actrix.gen.nz/mycroft/hashcash.el} \e$B$H$7$F8+$D$1$k\e(B
-\e$B$3$H$,$G$-$^$9!#\e(B
-
\e$B$$$/$D$+$NDI2C$NJQ?t$N@_Dj$b$7$J$1$l$P$J$j$^$;$s\e(B:
@table @code
@item hashcash-default-payment
@vindex hashcash-default-payment
\e$B$3$NJQ?t$O%O%C%7%e$N>WFM$r@.$9%G%#%U%)%k%H$N%S%C%H?t$r<($7$^$9!#5,DjCM\e(B
-\e$B$O\e(B 0 \e$B$G!"2?$b9T$J$o$l$J$$$3$H$r0UL#$7$^$9!#Ds0F$5$l$F$$$kM-8z$JCM\e(B
-\e$B$O\e(B 17 \e$B$+$i\e(B 29 \e$B$^$G$N?t$G$9!#\e(B
+\e$B$O\e(B 10 \e$B$G!"$=$l$O$$$5$5$+Dc$$CM$G$9!#Ds>'$5$l$F$$$kM-8z$JCM$O\e(B 17 \e$B$+\e(B
+\e$B$i\e(B 29 \e$B$^$G$N?t$G$9!#\e(B
@item hashcash-payment-alist
@vindex hashcash-payment-alist
@item Gnus now view DNS master files sent as text/dns using dns-mode.
@item Gnus now support the ``hashcash'' client puzzle anti-spam idea.
-See the Gnus manual, section Hashcash, for more information.
+See the Gnus manual, section Hashcash, for more information. Use
+(setq message-generate-hashcash t) to enable.
@end itemize
@uref{http://www.cypherspace.org/~adam/hashcash/}. Even more
information can be found at @uref{http://www.camram.org/}.
-If you wish to call hashcash for each message you send, say something
-like:
+If you wish to generate hashcash for each message you send, you can
+customize @code{message-generate-hashcash} (@pxref{Mail Headers, ,Mail
+Headers,message, The Message Manual}), as in:
@lisp
-(add-hook 'message-send-hook 'mail-add-payment)
+(setq message-generate-hashcash t)
@end lisp
-The @file{hashcash.el} library can be found in Gnus or at
-@uref{http://users.actrix.gen.nz/mycroft/hashcash.el}.
-
You will need to set up some additional variables as well:
@table @code
@item hashcash-default-payment
@vindex hashcash-default-payment
This variable indicates the default number of bits the hash collision
-should consist of. By default this is 0, meaning nothing will be
-done. Suggested useful values include 17 to 29.
+should consist of. By default this is 10, which is a rather low
+value. Suggested useful values include 17 to 29.
@item hashcash-payment-alist
@vindex hashcash-payment-alist
@vindex message-default-mail-headers
\e$B$3$NJ8;zNs$O%a!<%k$H$7$F=i4|2=$5$l$?A4$F$N%a%C%;!<%8%P%C%U%!$N%X%C%@!<$N\e(B
\e$B:G8e$NA^F~$5$l$^$9!#\e(B
+
+@item message-generate-hashcash
+@vindex message-generate-hashcash
+\e$B%a%C%;!<%8$K\e(B @samp{X-Hashcash} \e$B%X%C%@!<$rIU2C$9$Y$-$+$I$&$+$r;X<($9$k%V!<\e(B
+\e$B%k\e(B (\e$BCM$,\e(B @code{nil} \e$B$+Hs\e(B-@code{nil} \e$B$N\e(B) \e$BJQ?t$G$9!#\e(B@xref{Hashcash,
+,Hashcash,gnus-ja,The Gnus Manual}.
@end table
@node Mail Variables
This string is inserted at the end of the headers in all message
buffers that are initialized as mail.
+@item message-generate-hashcash
+@vindex message-generate-hashcash
+Boolean variable that indicate whether @samp{X-Hashcash} headers
+should be computed for the message. @xref{Hashcash, ,Hashcash,gnus,
+The Gnus Manual}.
+
@end table
projects / elisp / gnus.git- / commitdiff