[Top][All Lists]
[Date Prev][Date Next][Thread Prev][Thread Next][Date Index][Thread Index]
[Emacs-diffs] emacs/lisp/gnus nnmairix.el gnus-art.el ChangeLog
From: |
Katsumi Yamaoka |
Subject: |
[Emacs-diffs] emacs/lisp/gnus nnmairix.el gnus-art.el ChangeLog |
Date: |
Mon, 08 Jun 2009 22:47:12 +0000 |
CVSROOT: /cvsroot/emacs
Module name: emacs
Changes by: Katsumi Yamaoka <yamaoka> 09/06/08 22:47:12
Modified files:
lisp/gnus : nnmairix.el gnus-art.el ChangeLog
Log message:
Synch with Gnus trunk:
2009-06-01 Katsumi Yamaoka <address@hidden>
* gnus-art.el (gnus-mime-delete-part): Specify gnus-decoded as
charset
to deleted part.
2009-05-30 David Engster <address@hidden>
* nnmairix.el: Remove old documentation in the commentary block.
(nnmairix-request-group): Do not update active file for nnml
back ends.
(nnmairix-retrieve-headers): Set gnus-nov-is-evil to t for
nnimap back
end so that overview files are ignored.
(nnmairix-update-groups): Make updating the groups more robust
by using
marks.
(nnmairix-determine-original-group-from-path): Circumvent
mairix bug
with dollar characters in message-id.
CVSWeb URLs:
http://cvs.savannah.gnu.org/viewcvs/emacs/lisp/gnus/nnmairix.el?cvsroot=emacs&r1=1.12&r2=1.13
http://cvs.savannah.gnu.org/viewcvs/emacs/lisp/gnus/gnus-art.el?cvsroot=emacs&r1=1.178&r2=1.179
http://cvs.savannah.gnu.org/viewcvs/emacs/lisp/gnus/ChangeLog?cvsroot=emacs&r1=1.807&r2=1.808
Patches:
Index: nnmairix.el
===================================================================
RCS file: /cvsroot/emacs/emacs/lisp/gnus/nnmairix.el,v
retrieving revision 1.12
retrieving revision 1.13
diff -u -b -r1.12 -r1.13
--- nnmairix.el 5 Jan 2009 03:22:13 -0000 1.12
+++ nnmairix.el 8 Jun 2009 22:47:11 -0000 1.13
@@ -23,9 +23,6 @@
;;; Commentary:
-;; THIS IS BETA SOFTWARE! This back end should not mess up or
-;; even delete your mails, but having a backup is always a good idea.
-
;; This is a back end for using the mairix search engine with
;; Gnus. Mairix is a tool for searching words in locally stored
;; mail. Mairix is very fast which allows using it efficiently for
@@ -35,32 +32,6 @@
;;
;; Mairix is written by Richard Curnow. More information can be found at
;; http://www.rpcurnow.force9.co.uk/mairix/
-;;
-;; For details about setting up mairix&Gnus&nnmairix.el, look at the
-;; emacswiki:
-;;
-;; http://www.emacswiki.org/cgi-bin/wiki/GnusMairix
-;;
-;; The newest version of nnmairix.el can be found at
-;;
-;; http://www.emacswiki.org/cgi-bin/emacs/nnmairix.el
-
-;; For impatient people, here's the setup in a nutshell:
-;;
-;; This back end requires an installed mairix binary which is
-;; configured to index your mail folder. You don't have to specify a
-;; search folder (but it does no harm, either). Visit the man page of
-;; mairix and mairixrc for details.
-;;
-;; Put nnmairix.el into your search path and "(require 'nnmarix)" into
-;; your .gnus. Then call nnmairix-create-default-group (or 'G b
-;; c'). This function will ask for all necessary information to create
-;; a mairix server in Gnus with the default search folder. This
-;; default search folder will be used for all temporary searches: call
-;; nnmairix-search ('G b s') and enter a mairix query (like
-;; f:address@hidden). To create a mairix group for one specific
-;; search query, use 'G b g'. See the emacswiki or the source for more
-;; information.
;; Commentary on the code: nnmairix sits between Gnus and the "real"
;; back end which handles the mail (currently nnml, nnimap and
@@ -522,7 +493,7 @@
(when (eq nnmairix-backend 'nnml)
(when nnmairix-rename-files-for-nnml
(nnmairix-rename-files-consecutively mfolder))
- (nnml-generate-nov-databases-directory mfolder))
+ (nnml-generate-nov-databases-directory mfolder nil t))
(nnmairix-call-backend
"request-scan" folder nnmairix-backend-server)
(if (and fast allowfast)
@@ -585,8 +556,13 @@
(mapcar
(lambda (arg) (- arg numcorr))
articles)))
- (setq rval (nnmairix-call-backend
+ (setq rval
+ (if (eq nnmairix-backend 'nnimap)
+ (let ((gnus-nov-is-evil t))
+ (nnmairix-call-backend
"retrieve-headers" articles folder nnmairix-backend-server
fetch-old))
+ (nnmairix-call-backend
+ "retrieve-headers" articles folder nnmairix-backend-server
fetch-old)))
(when (eq rval 'nov)
(nnmairix-replace-group-and-numbers articles folder group numcorr)
rval)))
@@ -1223,7 +1199,8 @@
(unless (and skipdefault
(string= (car cur) default))
(gnus-group-jump-to-group (car cur))
- (gnus-group-get-new-news-this-group)))))))
+ (gnus-group-mark-group 1)))
+ (gnus-group-get-new-news-this-group)))))
(defun nnmairix-remove-tick-mark-original-article ()
"Remove tick mark from original article.
@@ -1692,6 +1669,11 @@
(nnmairix-open-server server)
(while (string-match "[<>]" mid)
(setq mid (replace-match "" t t mid)))
+ ;; mairix somehow does not like '$' in message-id
+ (when (string-match "\\$" mid)
+ (setq mid (concat mid "=")))
+ (while (string-match "\\$" mid)
+ (setq mid (replace-match "=," t t mid)))
(let (allgroups)
(if (zerop (nnmairix-call-mairix-binary-raw
(split-string nnmairix-mairix-command)
Index: gnus-art.el
===================================================================
RCS file: /cvsroot/emacs/emacs/lisp/gnus/gnus-art.el,v
retrieving revision 1.178
retrieving revision 1.179
diff -u -b -r1.178 -r1.179
--- gnus-art.el 16 Feb 2009 09:32:19 -0000 1.178
+++ gnus-art.el 8 Jun 2009 22:47:11 -0000 1.179
@@ -4943,7 +4943,7 @@
"`----\n"))
(setcdr data
(cdr (mm-make-handle
- nil `("text/plain") nil nil
+ nil `("text/plain" (charset . gnus-decoded)) nil nil
(list "attachment")
(format "Deleted attachment (%s bytes)" bsize))))))
;; (set-buffer gnus-summary-buffer)
Index: ChangeLog
===================================================================
RCS file: /cvsroot/emacs/emacs/lisp/gnus/ChangeLog,v
retrieving revision 1.807
retrieving revision 1.808
diff -u -b -r1.807 -r1.808
--- ChangeLog 28 Apr 2009 16:57:53 -0000 1.807
+++ ChangeLog 8 Jun 2009 22:47:11 -0000 1.808
@@ -1,3 +1,19 @@
+2009-06-01 Katsumi Yamaoka <address@hidden>
+
+ * gnus-art.el (gnus-mime-delete-part): Specify gnus-decoded as charset
+ to deleted part.
+
+2009-05-30 David Engster <address@hidden>
+
+ * nnmairix.el: Remove old documentation in the commentary block.
+ (nnmairix-request-group): Do not update active file for nnml back ends.
+ (nnmairix-retrieve-headers): Set gnus-nov-is-evil to t for nnimap back
+ end so that overview files are ignored.
+ (nnmairix-update-groups): Make updating the groups more robust by using
+ marks.
+ (nnmairix-determine-original-group-from-path): Circumvent mairix bug
+ with dollar characters in message-id.
+
2009-04-28 Reiner Steib <address@hidden>
* spam.el: Use dns-query instead of query-dns. Was renamed on
[Prev in Thread] |
Current Thread |
[Next in Thread] |
- [Emacs-diffs] emacs/lisp/gnus nnmairix.el gnus-art.el ChangeLog,
Katsumi Yamaoka <=