dot/gnus.el, dot/gnus-local.el.distorted: Gnus Cloud silliness.

diff --git a/dot/gnus-local.el.distorted b/dot/gnus-local.el.distorted
index fae39a315a420c99109dc10e31f3def0d480ece2..0510e7b95c85fc33ed74f637ae0fd78fd04927a0 100644 (file)
--- a/dot/gnus-local.el.distorted
+++ b/dot/gnus-local.el.distorted
@@ -5,7 +5,8 @@
 ;;; (c) 2014 Mark Wooding
 ;;;
 
 ;;; (c) 2014 Mark Wooding
 ;;;
 

-(setq auth-sources '("~/.authinfo.gpg"))
+(setq auth-sources '("~/.authinfo.gpg")
+      gnus-cloud-method "nnimap:distorted")

 
 ;;;--------------------------------------------------------------------------
 ;;; How to send mail.
 
 ;;;--------------------------------------------------------------------------
 ;;; How to send mail.

diff --git a/dot/gnus.el b/dot/gnus.el
index ff2210eadb694e1a20ac0a3e3cbb8e3c68b1fd28..2391c486120b00d4074a5cdb67a1c71a98e83179 100644 (file)
--- a/dot/gnus.el
+++ b/dot/gnus.el
@@ -243,6 +243,12 @@ (defun mdw-message-send-it ()
 
 (setq message-send-mail-function 'mdw-message-send-it)
 
 
 (setq message-send-mail-function 'mdw-message-send-it)
 

+;;;--------------------------------------------------------------------------
+;;; Gnus Cloud nonsense.
+
+(setq gnus-cloud-synced-files
+       '((:directory "~/News" :match ".*.SCORE\\'")))
+

 ;;;--------------------------------------------------------------------------
 ;;; Local configuration.
 
 ;;;--------------------------------------------------------------------------
 ;;; Local configuration.