mirrors/emacs
1
Fork 0
mirror of git://git.sv.gnu.org/emacs.git synced 2026-01-30 12:21:25 -08:00
Code Issues Projects Releases Wiki Activity

Add a way to more conveniently log/debug nnmail splitting

Browse source 
* doc/misc/gnus.texi (Fancy Mail Splitting): Mention it.

* lisp/gnus/nnmail.el (nnmail-debug-splitting): New variable.

* lisp/gnus/nnmail.el (nnmail-log-split): New function.
(nnmail-split-it): Use it.
This commit is contained in:
Lars Ingebrigtsen 2019-07-13 15:23:38 +02:00
parent 67e2116160
commit b2fd5fbfcc
2 changed files with 24 additions and 8 deletions
Download patch file Download diff file Expand all files Collapse all files

3
doc/misc/gnus.texi
View file

@ -15594,6 +15594,9 @@ outgoing messages are written to an ``outgoing'' group, you could set
Otherwise, answers to all your messages would end up in the
``outgoing'' group.
If @code{nnmail-debug-splitting} is non-@code{nil}, the mail splitting
code will log all splitting decisions to the @samp{*nnmail split*} buffer.
@node Group Mail Splitting
@subsection Group Mail Splitting

29
lisp/gnus/nnmail.el
View file

@ -566,6 +566,12 @@ using different case (i.e. mailing-list@domain vs Mailing-List@Domain)."
:group 'nnmail
:type 'boolean)
(defcustom nnmail-debug-splitting nil
"If non-nil, record mail splitting actions.
These will be logged to the \"*nnmail split*\" buffer."
:type 'boolean
:version "27.1")
;;; Internal variables.
(defvar nnmail-article-buffer " *nnmail incoming*"
@ -1359,14 +1365,12 @@ See the documentation for the variable `nnmail-split-fancy' for details."
;; A group name. Do the \& and \N subs into the string.
((stringp split)
(when nnmail-split-tracing
(push split nnmail-split-trace))
(nnmail-log-split split)
(list (nnmail-expand-newtext split t)))
;; Junk the message.
((eq split 'junk)
(when nnmail-split-tracing
(push "junk" nnmail-split-trace))
(nnmail-log-split "junk")
(list 'junk))
;; Builtin & operation.
@ -1383,8 +1387,7 @@ See the documentation for the variable `nnmail-split-fancy' for details."
;; Builtin : operation.
((eq (car split) ':)
(when nnmail-split-tracing
(push split nnmail-split-trace))
(nnmail-log-split split)
(nnmail-split-it (save-excursion (eval (cdr split)))))
;; Builtin ! operation.
@ -1402,8 +1405,7 @@ See the documentation for the variable `nnmail-split-fancy' for details."
(while (and (goto-char end-point)
(re-search-backward (cdr cached-pair) nil t))
(setq match-data (match-data))
(when nnmail-split-tracing
(push split nnmail-split-trace))
(nnmail-log-split split)
(let ((split-rest (cddr split))
(end (match-end 0))
;; The searched regexp is \(\(FIELD\).*\)\(VALUE\).
@ -2052,6 +2054,17 @@ Doesn't change point."
(and (nnmail-search-unix-mail-delim-backward)
(not (search-forward "\n\n" pos t))))))
(defun nnmail-log-split (split)
(when nnmail-split-tracing
(push split nnmail-split-trace))
(when nnmail-debug-splitting
(with-current-buffer (get-buffer-create "*nnmail split*")
(goto-char (point-max))
(insert (format-time-string "%FT%T")
" "
(format "%S" split)
"\n"))))
(run-hooks 'nnmail-load-hook)
(provide 'nnmail)