From mboxrd@z Thu Jan 1 00:00:00 1970 Path: main.gmane.org!not-for-mail From: Richard Stallman Newsgroups: gmane.emacs.devel Subject: Spam prevention Date: Sun, 04 Apr 2004 19:39:58 -0400 Sender: emacs-devel-bounces+emacs-devel=quimby.gnus.org@gnu.org Message-ID: Reply-To: rms@gnu.org NNTP-Posting-Host: deer.gmane.org X-Trace: sea.gmane.org 1081122277 20898 80.91.224.253 (4 Apr 2004 23:44:37 GMT) X-Complaints-To: usenet@sea.gmane.org NNTP-Posting-Date: Sun, 4 Apr 2004 23:44:37 +0000 (UTC) Original-X-From: emacs-devel-bounces+emacs-devel=quimby.gnus.org@gnu.org Mon Apr 05 01:44:33 2004 Return-path: Original-Received: from quimby.gnus.org ([80.91.224.244]) by deer.gmane.org with esmtp (Exim 3.35 #1 (Debian)) id 1BAHI1-0006Ol-00 for ; Mon, 05 Apr 2004 01:44:33 +0200 Original-Received: from monty-python.gnu.org ([199.232.76.173]) by quimby.gnus.org with esmtp (Exim 3.35 #1 (Debian)) id 1BAHI0-0003lg-00 for ; Mon, 05 Apr 2004 01:44:32 +0200 Original-Received: from localhost ([127.0.0.1] helo=monty-python.gnu.org) by monty-python.gnu.org with esmtp (Exim 4.30) id 1BAHGu-0004wP-7N for emacs-devel@quimby.gnus.org; Sun, 04 Apr 2004 19:43:24 -0400 Original-Received: from list by monty-python.gnu.org with tmda-scanned (Exim 4.30) id 1BAHEV-0002Z3-5h for emacs-devel@gnu.org; Sun, 04 Apr 2004 19:40:55 -0400 Original-Received: from mail by monty-python.gnu.org with spam-scanned (Exim 4.30) id 1BAHDc-0001yz-1J for emacs-devel@gnu.org; Sun, 04 Apr 2004 19:40:31 -0400 Original-Received: from [199.232.76.164] (helo=fencepost.gnu.org) by monty-python.gnu.org with esmtp (Exim 4.30) id 1BAHDb-0001yH-Bd for emacs-devel@gnu.org; Sun, 04 Apr 2004 19:39:59 -0400 Original-Received: from rms by fencepost.gnu.org with local (Exim 4.24) id 1BAHDa-0001GH-Cm; Sun, 04 Apr 2004 19:39:58 -0400 Original-To: emacs-devel@gnu.org X-BeenThere: emacs-devel@gnu.org X-Mailman-Version: 2.1.4 Precedence: list List-Id: "Emacs development discussions." List-Unsubscribe: , List-Archive: List-Post: List-Help: List-Subscribe: , Errors-To: emacs-devel-bounces+emacs-devel=quimby.gnus.org@gnu.org Xref: main.gmane.org gmane.emacs.devel:21256 X-Report-Spam: http://spam.gmane.org/gmane.emacs.devel:21256 Do people think this is worth even trying? Are address harvesters still blocked by such simple things? To: bug-gnu-emacs@gnu.org From: jari.aalto@poboxes.com (Jari Aalto+mail.linux) Organization: Private Date: Sun, 04 Apr 2004 17:06:07 +0300 Subject: [patch] 21.3 add-log.el::add-log-mailing-address security (spam) Sender: bug-gnu-emacs-bounces+rms=gnu.org@gnu.org The following change will help selecting more appropriate default for displayed identity in ChangeLogs. This helps fighting against spam harversters by not letting then simply rip out all that looks like "@". This is naturally tip of the iceberg, but I believe any measure to improve security should be included in Emacs as well. 2004-04-04 Jari Aalto * add-log.el (add-log-mailing-address): Refer to `add-log-user-mail-address' and suggest email addrress that prevents spam. (add-log-user-mail-address): New. Spam protect `user-mail-address'. (add-change-log-entry): Use `add-log-user-mail-address'. Index: add-log.el =================================================================== RCS file: /cygdrive/h/data/version-control/cvsroot/emacs/gnu-emacs/lisp213/add-log.el,v retrieving revision 1.1 retrieving revision 1.2 diff -u -IId: -c -r1.1 -r1.2 cvs diff: conflicting specifications of output style *** add-log.el 26 Jun 2003 18:06:05 -0000 1.1 --- add-log.el 4 Apr 2004 14:00:16 -0000 1.2 *************** *** 68,74 **** ;;;###autoload (defcustom add-log-mailing-address nil "*Electronic mail address of user, for inclusion in ChangeLog daily headers. ! This defaults to the value of `user-mail-address'." :type '(choice (const :tag "Default" nil) string) :group 'change-log) --- 68,79 ---- ;;;###autoload (defcustom add-log-mailing-address nil "*Electronic mail address of user, for inclusion in ChangeLog daily headers. ! This defaults to the value of function `add-log-user-mail-address'. ! If you set this yourself, consider using some Spam protected email format, ! which could be: ! ! john.doe _A T_ example.com ! john DOT doe _AT_ example DOT com" :type '(choice (const :tag "Default" nil) string) :group 'change-log) *************** *** 400,405 **** --- 405,418 ---- (file-name-sans-versions buffer-file) buffer-file)))) + (defun add-log-user-mail-address () + "Return protected version of `user-rmail-address'." + (and (stringp user-mail-address) + (string-match "@" user-mail-address) + ;; ' AT ' is too common, so use something else to + ;; make Unsolicited bulk email (spam) harvester's work harder. + (replace-match " _A T_ " nil nil user-mail-address))) + ;;;###autoload (defun add-change-log-entry (&optional whoami file-name other-window new-entry) "Find change log file and add an entry for today. *************** *** 419,425 **** (or add-log-full-name (setq add-log-full-name (user-full-name))) (or add-log-mailing-address ! (setq add-log-mailing-address user-mail-address)) (if whoami (progn (setq add-log-full-name (read-input "Full name: " add-log-full-name)) --- 432,439 ---- (or add-log-full-name (setq add-log-full-name (user-full-name))) (or add-log-mailing-address ! (setq add-log-mailing-address ! (add-log-user-mail-address))) (if whoami (progn (setq add-log-full-name (read-input "Full name: " add-log-full-name)) -- http://tiny-tools.sourceforge.net/ Swatch @time http://www.mir.com.my/iTime/itime.htm http://www.ryanthiessen.com/swatch/resources.htm Use Licenses! http://www.linuxjournal.com/article.php?sid=6225 Which Licence? http://www.linuxjournal.com/article.php?sid=4825 OSI Licences http://www.opensource.org/licenses/ _______________________________________________ Bug-gnu-emacs mailing list Bug-gnu-emacs@gnu.org http://mail.gnu.org/mailman/listinfo/bug-gnu-emacs