comparison lisp/mail/rmail-spam-filter.el @ 90228:fa0da9b57058

Revision: miles@gnu.org--gnu-2005/emacs--unicode--0--patch-82 Merge from emacs--cvs-trunk--0 Patches applied: * emacs--cvs-trunk--0 (patch 542-553) - Update from CVS - Merge from gnus--rel--5.10 * gnus--rel--5.10 (patch 116-121) - Merge from emacs--cvs-trunk--0 - Update from CVS
author Miles Bader <miles@gnu.org>
date Mon, 19 Sep 2005 10:20:33 +0000
parents a3716f7538f2 4e6c5e8ae4e9
children c5406394f567
comparison
equal deleted inserted replaced
90227:10fe5fadaf89 90228:fa0da9b57058
447 t) 447 t)
448 (customize-mark-to-save 'rsf-definitions-alist) 448 (customize-mark-to-save 'rsf-definitions-alist)
449 (if rsf-autosave-newly-added-definitions 449 (if rsf-autosave-newly-added-definitions
450 (progn 450 (progn
451 (custom-save-all) 451 (custom-save-all)
452 (message (concat "added subject \n <<< \n" message-subject 452 (message "%s" (concat "added subject \n <<< \n" message-subject
453 " \n >>> \n to list of spam definitions. \n" 453 " \n >>> \n to list of spam definitions. \n"
454 "and saved the spam definitions to file."))) 454 "and saved the spam definitions to file.")))
455 (message (concat "added subject \n <<< \n" message-subject 455 (message "%s" (concat "added subject \n <<< \n" message-subject
456 " \n >>> \n to list of spam definitions. \n" 456 " \n >>> \n to list of spam definitions. \n"
457 "Don't forget to save the spam definitions to file using the spam 457 "Don't forget to save the spam definitions to file using the spam
458 menu")) 458 menu"))
459 ))) 459 )))
460 460
476 t) 476 t)
477 (customize-mark-to-save 'rsf-definitions-alist) 477 (customize-mark-to-save 'rsf-definitions-alist)
478 (if rsf-autosave-newly-added-definitions 478 (if rsf-autosave-newly-added-definitions
479 (progn 479 (progn
480 (custom-save-all) 480 (custom-save-all)
481 (message (concat "added sender \n <<< \n" message-sender 481 (message "%s" (concat "added sender \n <<< \n" message-sender
482 " \n >>> \n to list of spam definitions. \n" 482 " \n >>> \n to list of spam definitions. \n"
483 "and saved the spam definitions to file."))) 483 "and saved the spam definitions to file.")))
484 (message (concat "added sender \n <<< \n " message-sender 484 (message "%s" (concat "added sender \n <<< \n " message-sender
485 " \n >>> \n to list of spam definitions." 485 " \n >>> \n to list of spam definitions."
486 "Don't forget to save the spam definitions to file using the spam 486 "Don't forget to save the spam definitions to file using the spam
487 menu")) 487 menu"))
488 ))) 488 )))
489 489
519 t) 519 t)
520 (customize-mark-to-save 'rsf-definitions-alist) 520 (customize-mark-to-save 'rsf-definitions-alist)
521 (if rsf-autosave-newly-added-definitions 521 (if rsf-autosave-newly-added-definitions
522 (progn 522 (progn
523 (custom-save-all) 523 (custom-save-all)
524 (message (concat "added highlighted text \n <<< \n" region-to-spam-list 524 (message "%s" (concat "added highlighted text \n <<< \n" region-to-spam-list
525 " \n >>> \n to list of spam definitions. \n" 525 " \n >>> \n to list of spam definitions. \n"
526 "and saved the spam definitions to file."))) 526 "and saved the spam definitions to file.")))
527 (message (concat "added highlighted text \n <<< \n " region-to-spam-list 527 (message "%s" (concat "added highlighted text \n <<< \n " region-to-spam-list
528 " \n >>> \n to list of spam definitions." 528 " \n >>> \n to list of spam definitions."
529 "Don't forget to save the spam definitions to file using the 529 "Don't forget to save the spam definitions to file using the
530 spam menu")) 530 spam menu"))
531 )))))) 531 ))))))
532 532