Current File : //usr/local/share/emacs/27.2/lisp/gnus/nnmairix.elc
;ELC
;;; Compiled
;;; in Emacs version 27.2
;;; with all optimizations.
;;; This file uses dynamic docstrings, first added in Emacs 19.29.
;;; This file does not contain utf-8 non-ASCII characters,
;;; and so can be loaded in Emacs versions earlier than 23.
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
(byte-code "\302\303!\210\302\304!\210\302\305!\210\302\306!\210\302\307!\210\302\310!\210\311\236\203+ \311\236A\312\313\314\"\240\210\2026 \311\312\313\314\"\314\211FB\311 \236\204B \311\315D B\314\207" [nnoo-definition-alist nnoo-state-alist require nnoo gnus-group gnus-sum message nnml widget nnmairix mapcar list nil "*internal-non-initialized-backend*"] 4)
#@29 Nnmairix group mode keymap.
(defalias 'nnmairix-group-mode-hook #[nil "\301\302\303 #\210\301\304\305#\210\301\306\307#\210\301\310\311#\210\301\312\313#\210\301\314\315#\210\301\316\317#\210\301\320\321#\210\301\322\323#\210\301\324\325#\210\301\326\327#\210\301\330\331#\210\301\332\333#\210\301\334\335#\207" [gnus-group-mode-map define-key "Gb" make-sparse-keymap "Gbg" nnmairix-create-search-group "Gbc" nnmairix-create-server-and-default-group "Gbq" nnmairix-group-change-query-this-group "Gbt" nnmairix-group-toggle-threads-this-group "Gbu" nnmairix-update-database "Gbs" nnmairix-search "Gbi" nnmairix-search-interactive "Gbm" nnmairix-widget-search "Gbp" nnmairix-group-toggle-propmarks-this-group "Gbr" nnmairix-group-toggle-readmarks-this-group "Gbd" nnmairix-group-delete-recreate-this-group "Gba" nnmairix-group-toggle-allowfast-this-group "Gbo" nnmairix-propagate-marks] 4 (#$ . 777)])
#@31 Nnmairix summary mode keymap.
(defalias 'nnmairix-summary-mode-hook #[nil "\301\302\303#\210\301\304\305#\210\301\306\307#\210\301\310\311#\210\301\312\313#\210\301\314\315#\207" [gnus-summary-mode-map define-key "GGt" nnmairix-search-thread-this-article "GGf" nnmairix-search-from-this-article "GGm" nnmairix-widget-search-from-this-article "GGg" nnmairix-create-search-group-from-message "GGo" nnmairix-goto-original-article "GGu" nnmairix-remove-tick-mark-original-article] 4 (#$ . 1697)])
(byte-code "\300\301\302\"\210\300\303\304\"\210\305\306\307\310\311\312%\210\313\314\315\316\317\320\321\322\311\306& \210\313\323\324\325\317\320\321\322\311\306& \210\313\326\327\330\317\320\321\322\311\306& \210\313\331\332\333\317\320\321\334\311\306& \210\313\335\336\337\317\320\321\340\311\306& \210\313\341\307\342\317\320\321\343\311\306& \210\313\344\345\346\317\320\321\343\311\306& \210\313\347\350\351\317\320\321\352\311\306& \210\313\353\354\355\317\320\321\356\311\306& \210\313\357\345\360\317\320\321\361\311\306& \210\313\362\307\363\317\320\321\343\311\306& \210\313\364\307\365\317\320\321\343\311\306& \210\313\366\307\367\317\320\321\343\311\306& \207" [add-hook gnus-group-mode-hook nnmairix-group-mode-hook gnus-summary-mode-hook nnmairix-summary-mode-hook custom-declare-group nnmairix nil "Back end for the Mairix mail search engine." :group gnus custom-declare-variable nnmairix-group-prefix "zz_mairix" "Prefix for mairix search groups on back end server.\nnnmairix will create these groups automatically on the back end\nserver for each nnmairix search group. The name on the back end\nserver will be this prefix plus a random number. You can delete\nunused nnmairix groups on the back end using\n`nnmairix-purge-old-groups'." :version "23.1" :type string nnmairix-mairix-output-buffer "*mairix output*" "Buffer used for mairix output." nnmairix-customize-query-buffer "*mairix query*" "Name of the buffer for customizing Mairix queries." nnmairix-mairix-update-options '("-F" "-Q") "Options when calling mairix for updating the database.\nThe default is \"-F\" and \"-Q\" for making updates faster. You\nshould call mairix without these options from time to\ntime (e.g. via cron job)." (repeat string) nnmairix-mairix-search-options '("-Q") "Options when calling mairix for searching.\nThe default is \"-Q\" for making searching faster." (repeat string) nnmairix-mairix-synchronous-update "Set this to t if you want Emacs to wait for mairix updating the database." boolean nnmairix-rename-files-for-nnml t "Rename nnml mail files so that they are consecutively numbered.\nWhen using nnml as back end, mairix might produce holes in the\narticle numbers which will produce wrong article counts by\nGnus. This option controls whether nnmairix should rename the\nfiles consecutively." nnmairix-widget-fields-list '(("from" "f" "From") ("to" "t" "To") ("cc" "c" "Cc") ("subject" "s" "Subject") ("to" "tc" "To or Cc") ("from" "a" "Address") (nil "b" "Body") (nil "n" "Attachment") ("Message-ID" "m" "Message ID") (nil "s" "Size") (nil "d" "Date")) "Fields that should be editable during interactive query customization.\n\nHeader, corresponding mairix command and description for editable\nfields in interactive query customization. The header specifies\nwhich header contents should be inserted into the editable field\nwhen creating a Mairix query based on the current message (can be\nnil for disabling this)." (repeat (list (choice :tag "Field" (const :tag "none" nil) (const :tag "From" "from") (const :tag "To" "to") (const :tag "Cc" "cc") (const :tag "Subject" "subject") (const :tag "Message ID" "Message-ID")) (string :tag "Command") (string :tag "Description"))) nnmairix-widget-select-window-function (lambda nil (select-window (get-largest-window))) "Function for selecting the window for customizing the mairix query.\nThe default chooses the largest window in the current frame." function nnmairix-propagate-marks-upon-close "Flag if marks should be propagated upon closing a group.\nThe default of this variable is t. If set to `ask', the\nuser will be asked if the flags should be propagated when the\ngroup is closed. If set to nil, the user will have to manually\ncall `nnmairix-propagate-marks'." (choice (const :tag "always" t) (const :tag "ask" ask) (const :tag "never" nil)) nnmairix-propagate-marks-to-nnmairix-groups "Flag if marks from original articles should be seen in nnmairix groups.\nThe default is nil since it will only work if the articles are in\nmaildir format and NOT managed by the nnmaildir back end but\ne.g. an IMAP server (which stores the marks in the maildir file\nname). You may safely set this to t for testing - the worst that\ncan happen are wrong marks in nnmairix groups." nnmairix-only-use-registry "Use only the registry for determining original group(s).\nIf set to t, nnmairix will only use the registry for determining\nthe original group(s) of an article (which is also necessary for\npropagating marks). If set to nil, it will also try to determine\nthe group from an additional mairix search which might be slow\nwhen propagating lots of marks." nnmairix-allowfast-default "Whether fast entering should be the default for nnmairix groups.\nYou may set this to t to make entering the group faster, but note that\nthis might lead to problems, especially when used with marks propagation."] 10)
#@107 Other editable mairix commands when using customization widgets.
Currently there are 'threads and 'flags.
(defvar nnmairix-widget-other '(threads flags) (#$ . 7088))
#@190 Things that should be editable during interactive query generation.
Every list element consists of the following entries: Keystroke,
message field (if any), mairix command and description.
(defvar nnmairix-interactive-query-parameters '((102 "from" "f" "From") (116 "to" "t" "To") (99 "to" "tc" "To or Cc") (97 "from" "a" "Address") (115 "subject" "s" "Subject") (98 nil "b" "Body") (100 nil "d" "Date") (110 nil "n" "Attachment")) (#$ . 7261))
#@420 Controls on which back ends groups should be deleted and re-created.
This variable is a list of back ends where the search group
should be completely deleted and re-created when the query or
thread parameter changes. The default is to this for all
currently supported back ends. It usually also corrects the
problem of "holes" in the article numbers which often lead to a
wrong count of total articles shown by Gnus.
(defvar nnmairix-delete-and-create-on-change '(nnimap nnmaildir nnml) (#$ . 7713))
#@116 Back end where mairix stores its searches.
This is a Gnus server variable. See Info node `(gnus)Select Methods'.
(defvar nnmairix-backend nil (#$ . 8222))
(nnoo-define 'nnmairix-backend nil)
#@126 Name of the server where mairix stores its searches.
This is a Gnus server variable. See Info node `(gnus)Select Methods'.
(defvar nnmairix-backend-server nil (#$ . 8422))
(nnoo-define 'nnmairix-backend-server nil)
#@122 Command to call mairix for this nnmairix server.
This is a Gnus server variable. See Info node `(gnus)Select Methods'.
(defvar nnmairix-mairix-command "mairix" (#$ . 8646))
(nnoo-define 'nnmairix-mairix-command nil)
#@203 Set this to t if the back end server uses hidden directories for
its maildir mail folders (e.g. the Dovecot IMAP server or mutt).
This is a Gnus server variable. See Info node `(gnus)Select Methods'.
(defvar nnmairix-hidden-folders nil (#$ . 8871))
(nnoo-define 'nnmairix-hidden-folders nil)
#@178 Default search group. This is the group which is used for all
temporary searches, e.g. nnmairix-search.
This is a Gnus server variable. See Info node `(gnus)Select Methods'.
(defvar nnmairix-default-group nil (#$ . 9172))
(nnoo-define 'nnmairix-default-group nil)
#@39 Regexp for mairix groups on back end.
(defconst nnmairix-group-regexp (format "%s-\\(.*\\)-[0-9]+" nnmairix-group-prefix) (#$ . 9445))
#@75 Back ends supported by nnmairix.
Other back ends might or might not work.
(defconst nnmairix-valid-backends '(nnimap nnml nnmaildir) (#$ . 9586))
#@21 Last chosen server.
(defvar nnmairix-last-server nil (#$ . 9738))
#@17 Current server.
(defvar nnmairix-current-server nil (#$ . 9810))
#@65 Cache for marks which should be set upon closing current group.
(defvar nnmairix-marks-cache nil (#$ . 9881))
#@34 Version string of mairix binary.
(defvar nnmairix-version-output nil (#$ . 9997))
(byte-code "\300\301!\210\302\303\304\305\306$\207" [nnoo-define-basics-1 nnmairix gnus-declare-backend "nnmairix" mail address virtual] 5)
(defalias 'nnmairix-open-server #[(server &optional definitions) "\303\304\n#\207" [server nnmairix-current-server definitions nnoo-change-server nnmairix] 4])
(nnoo-register-function 'nnmairix-open-server)
(defalias 'nnmairix-request-group #[(group &optional server fast info) "\203 \306!\210\203 \307 \310D\"\202 \311\n\303\"\311\n\312\" \311\n\305\313# \311\n\314\" \f\315\316\317>!?#\211\203C \211<\203C \211\206\203\320@\"A\206\203\211\321\232\203W A\206l\320B\"A\206l\320C\"A\206lD\211\203\210 \315\316@@@@@A@#\232\204\210 \211A\266\202\202k \211@@\262\206lE\211\203\255 \315\316@@@A@#\232\204\255 \211A\266\202\202\222 \211@\262\206lFA\322\211\203j\211A\262\242\3238\262\262;\204\271 \322\313C\3242[\211\242\206\341 A\240\210\204\371 \325\326\327\330\331\332!\333\"\323\334%@\"\210BCD\211\203 \211@\325\326\327\335\331\332!\336\"\323\334%\"\210A\266\202\202\376 \210\211\242A@\337\235\203/\315\340\242@\"\2029\315\316\242@\242A@#\211\242B\211@\235\204W\204W\320@@\"\204W\211@B@\266\2020\266\204\232\203\271 \262\322\262\202\271 \266\202\211\203\200\320@\"\204\200B@B@\211\262\262 G\322\211 H I\322\211 J K \204\241\341\310\342 #\210\322\202\220
\204\267rLq\210\343 \210\344 Pc\210)\313\202\220M\203\311\345\346 \"\204\311\347 P\202\312 I>\350=\203\344\320\351G\"A@\211J\204\344)J>\352=\203\364\320\353G\"A@JJ\203\354\355J!!IPIN\203\f\203\356\202 \357\360O!I
\f$\211H\356U\203]\361\362?\"\210>\350=\203BP\203;\363I!\210\364I\322\313#\210\361\365 ?#\210N\203V\f\203V\313\202\220\366 \n\"\202\220H\367U\203\210rQq\210eb\210\370\371!)\203\210\372\373\374\"\210Lq\210\343 \210\344 Pc\210\313\202\220\341\310\375Q#\210\322.\n\207" [server group qualgroup folder allowfast query nnmairix-open-server gnus-group-prefixed-name nnmairix gnus-group-get-parameter allow-fast t threads format "%s:%s" symbol-name assoc "native" nil 4 server-name mapc make-byte-code 257 "\211A\300\242\232\205
\301\302@\"\207" vconcat vector [throw server-name] "\n\n(fn NAME-METHOD)" "\302A\300\242\"\205 \211 \235\204 \211 B\303\304@\"\207" [gnus-server-method-cache gnus-methods-equal-p throw server-name] (nil "") "%s" nnheader-report "Check folder parameter for group %s" erase-buffer "211 0 1 0 " string-match "^\\." "." nnml nnml-directory nnmaildir directory file-name-as-directory expand-file-name 0 nnmairix-call-mairix-binary split-string nnmairix-call-backend "open-server" nnmairix-rename-files-consecutively nnml-generate-nov-databases-directory "request-scan" nnmairix-request-group-with-article-number-correction 1 looking-at "^Matched 0 messages" nnheader-message 5 "Mairix: No matches found." "Error running mairix. See buffer %s for details" nnmairix-backend nnmairix-backend-server gnus-server-method-cache gnus-select-method gnus-server-alist gnus-predefined-server-alist gnus-opened-servers gnus-secondary-select-methods gnus-newsrc-alist backendmethod rval mfolder folderpath args nntp-server-buffer nnmairix-hidden-folders fast nnmairix-mairix-command nnmairix-rename-files-for-nnml nnmairix-mairix-output-buffer] 19])
(nnoo-register-function 'nnmairix-request-group)
(defalias 'nnmairix-request-create-group #[(group &optional server args) "\203
\306 \307D\"\202 \310\311\312\211 \203 \313!\210\314\315\"\210\314\316\"\210
\203H \fT\317\320 \321\f!$\322\323 #\211\2040 \322\324 #\210\314\325\"\210 \203` \314\326\"\210\327\330 #\210-\310\207" [server group info groupname count exist gnus-group-prefixed-name nnmairix t 0 nil nnmairix-open-server gnus-group-add-parameter (query) (threads) format "%s-%s-%s" number-to-string nnmairix-call-backend "request-group" "request-create-group" (folder) (allow-fast . t) gnus-group-set-parameter folder qualgroup nnmairix-group-prefix nnmairix-backend-server nnmairix-allowfast-default] 7])
(nnoo-register-function 'nnmairix-request-create-group)
(defalias 'nnmairix-retrieve-headers #[(articles group &optional server fetch-old) "\203 \306!\210\307 \"\310 \"\311 \312 \2034 A@\311U\2044 @\247\2034 A@\313\314\"\315=\203L \316 \317\320\n%)\202V \317\320\n%\321\n \f
%\210
,\207" [server group folder corr numcorr rval nnmairix-open-server nnmairix-get-backend-folder nnmairix-get-numcorr 0 nil mapcar #[(arg) " Z\207" [arg numcorr] 2] nnimap t nnmairix-call-backend "retrieve-headers" nnmairix-replace-group-and-numbers articles nnmairix-backend gnus-nov-is-evil nnmairix-backend-server fetch-old] 6])
(nnoo-register-function 'nnmairix-retrieve-headers)
(defalias 'nnmairix-request-article #[(article &optional group server to-buffer) "\203 \306!\210\307 \"\310 \"\f\247\203) \n\203) \nA@\311U\204) \f\nA@Z\312\313\f
%\210*\314\207" [server group corr folder article nnmairix-backend-server nnmairix-open-server nnmairix-get-backend-folder nnmairix-get-numcorr 0 nnmairix-call-backend "request-article" t to-buffer] 6])
(nnoo-register-function 'nnmairix-request-article)
(defalias 'nnmairix-request-list #[(&optional server) "\203 \306!\210\307\310 \"\205e \311\211\211\211 rq\210eb\210`\312d\313#\203_ \314\315!\316\f\317D\"\320 \"\203Y \314\321!\322 \302\"\230\203Y \323\f!\210
\324 |\210\311y\210`\202! \311y\210\202!
d|\210-\313\207" [server nnmairix-backend-server folder qualgroup cur cpoint nnmairix-open-server nnmairix-call-backend "request-list" nil re-search-forward t match-string 1 gnus-group-prefixed-name nnmairix gethash 0 gnus-group-get-parameter replace-match point-at-bol nntp-server-buffer nnmairix-group-regexp gnus-newsrc-hashtb] 4])
(byte-code "\300\301!\210\302\303\304\"\207" [nnoo-register-function nnmairix-request-list autoload gnus-registry-get-id-key "gnus-registry"] 3)
(defalias 'nnmairix-request-set-mark #[(group actions &optional server) "\203 \306!\210\307 \310\nD\"\311 \304\" \311 \305\312# \313 \" '\314 \" (\212)\315 *\211 +\205[+@\211*A@\316*8\317*@!\315\211\211\211\211 , - . / 0 1 2 3'\203m 'A@\320U\204m \321\3221\"1\f\203O\323\324\325\"\2101\315 4\211 +\203I+@4\3262?\327\3305\"\210\3314\307(65D\"\"\204\254 \323\332\3334#\210\334\326\315\"\2107q\210eb\210\312 8\335\336\315\312#\210)\337\340!\2110\204\322 \323\332\3414#\210\334\326\315\"\210\3420!\211/\204\350 9\204\350 \3430\n\"//\204\371 \323\332\3440#\210\334\326\315\"\210/\315 *\211 +\205=+@*\345*:\"\211,\203$,032EC\244\210\2023*032ED:B:+A\211+\204\315*0\210+A\211+\204\201 *\323\324\346\"\210.+A\211+\2042 \315.\207" [server group nnmairix-current-server qualgroup propmarks propto nnmairix-open-server gnus-group-prefixed-name nnmairix gnus-group-get-parameter t nnmairix-get-numcorr nnmairix-get-backend-folder nil 2 gnus-uncompress-range 0 mapcar #[(arg) " A@Z\207" [arg corr] 2] nnheader-message 7 "nnmairix: Setting marks..." problem nnmairix-call-backend "open-server" gnus-request-head 3 "Unable to set mark: couldn't fetch article header for article number %d" throw re-search-forward "^message-id:.*\\(<.+>\\)" match-string 1 "Unable to set mark: article number %d has no message-id header" nnmairix-determine-original-group-from-registry nnmairix-determine-original-group-from-path "Unable to set mark: couldn't find original group for %s" assoc "nnmairix: Setting marks... done" corr folder actions cur --dolist-tail-- temp method number ogroup mid range cmdmarks type article nnmairix-backend-server nnmairix-backend nntp-server-buffer case-fold-search nnmairix-only-use-registry nnmairix-marks-cache] 9])
(nnoo-register-function 'nnmairix-request-set-mark)
(defalias 'nnmairix-close-group #[(group &optional server) "\203 \306!\210\307 \310\nD\"\311 \304\" \312 \f\205B \205B \313=\2043 \314=\205B \315\316!\205B rq\210\317 \210\320 !\210\321 )+\207" [server group nnmairix-current-server qualgroup propmarks method nnmairix-open-server gnus-group-prefixed-name nnmairix gnus-group-get-parameter nil t ask y-or-n-p "Propagate marks to original articles? " nnmairix-propagate-marks gnus-group-jump-to-group gnus-group-get-new-news-this-group nnmairix-marks-cache nnmairix-propagate-marks-upon-close gnus-group-buffer] 4])
(byte-code "\300\301!\210\302\303\304\"\207" [nnoo-register-function nnmairix-close-group autoload nnimap-request-update-info-internal "nnimap"] 3)
(defalias 'nnmairix-request-marks #[(group info &optional server) "\203 \306!\210\307 \310\nD\"\311 \304\" \311 \305\" \312 \" \313 \"\211 !\2050 !A@\314U? \" \315B #\316\211 $ %
\203\246 &\203\246 '\317=\203Y \320 #(#\210\202c \321\322 #($\210)AA\211 *\"\203\202 \323\324\325\326\327!A@EE\330#8\"\202\206 \330#8\240\210)\331)\233\211 +\"\203\237 \332\333\331#8\"\202\243 \331#8\240\210)\f\334=\203\267 )AA\211 ,\316\240\210)\f\335=\203\314 )AA\211 -\336 .\"\240\210). \337\207" [server group nnmairix-current-server qualgroup readmarks propmarks nnmairix-open-server gnus-group-prefixed-name nnmairix gnus-group-get-parameter nnmairix-get-backend-folder nnmairix-get-numcorr 0 (1 ((1 . 1))) nil nnimap nnimap-request-update-info-internal nnmairix-call-backend "request-update-info" nnmairix-map-range lambda (x) + x 2 3 mapcar #[(cur) "@\302\303\304\305\306 A@EEA@C\"B\207" [cur corr nnmairix-map-range lambda (x) + x] 7] unread read gethash t folder corr docorr folderinfo readrange marks nnmairix-propagate-marks-to-nnmairix-groups nnmairix-backend nnmairix-backend-server info #1=#:c #2=#:c #3=#:c #4=#:c gnus-active-hashtb] 8])
(byte-code "\300\301!\210\302\303!\207" [nnoo-register-function nnmairix-request-marks nnoo-define-skeleton-1 nnmairix] 2)
#@179 Create on SERVER nnmairix search group GROUP with QUERY.
If THREADS is t, include whole threads from found messages. If
called interactively, user will be asked for parameters.
(defalias 'nnmairix-create-search-group #[(server group query threads) ";\203 \306\307\"\203 \310!<\204 C \205E \n\205E \205E \212\311\n \"\312
q\210\313\n \"\210\314\f\300#\210\314\f\315
#\210\316\f!+\207" [query server group info groupname gnus-group-buffer string-match "\\s-" split-string gnus-group-prefixed-name nil gnus-group-make-group gnus-group-set-parameter threads nnmairix-update-and-clear-marks] 4 (#$ . 19881) (list (gnus-server-to-method (car (nnmairix-get-server))) (read-string "Group name: ") (read-string "Query: ") (y-or-n-p "Include threads? "))])
#@57 Create mairix search interactively with the minibuffer.
(defalias 'nnmairix-search-interactive #[nil "\306\211\211\211 \204J \204( \307\310\311 \"\210\312 \313
\"\204 \306\211\203 \314\315\316\313
\"8\317Q!\320\313
\"8\321\fQ\nB\322\323!?\306\202\n \324\325\326\n\327#\330 @\322\331!#-\207" [nnmairix-interactive-query-parameters achar query finished header char-header nil message "Query (%s): " nnmairix-create-message-line-for-search read-char assoc read-string "Match " 3 " on: " 2 ":" y-or-n-p "Add another search query? " nnmairix-search mapconcat identity " " nnmairix-get-server "Include whole threads? "] 7 (#$ . 20650) nil])
#@72 Interactively create search group with query based on current message.
(defalias 'nnmairix-create-search-group-from-message #[nil "\306 !\307\211\211\211\211\211\211 6 7 8 9 :;\211 <\205/ \310\311<!\211<!\205/ <)\203M =\211 <\205I \310\311<!\211<!\205I <)\204Q \312\313!\2109\204a \312\314\315 @! A@#\210
\204\331 \212\316\317!\2107\204\211 \320\321\322 \"\210\323 7\3247:\"\204j \307\2117\203o ;q\210\3076\3247:\"A@\211\203\253 \325\326\3247:\"A@!!6\327\330\331\3247:\"8\332Q6\"6\333\3247:\"8\3346Q8B8\335\336!?\3077)\202a \335\337!\327\340!=q\210\320\341\f9\307\211C\3422t\211\242\206\372 >\240\210\204\343\344\345\346\347\350!\351\"\352\353%?\"\210@AD\211\2035\211@\343\344\345\354\347\350!\355\"\352\353%\"\210A\266\202\202\210\211\242A@\356\235\203H\357\360\242@\"\202R\357\361\242@\242A@#\211\242B\211?\235\204p\204p\324@?\"\204p\211?B?\266\2020\266\204\362\3638\364#$\210\3659\f8 $. \207" [nnmairix-interactive-query-parameters gnus-current-select-method cq threads group finished nnmairix-backend-to-server nil buffer-live-p get-buffer error "No article or summary buffer" "No nnmairix server found for back end %s:%s" symbol-name gnus-summary-toggle-header 1 message "Query (%s): " nnmairix-create-message-line-for-search read-char assoc nnmairix-replace-illegal-chars gnus-fetch-field read-string "Match " 3 " on: " 2 ":" y-or-n-p "Add another search query? " "Include whole threads? " "Group name: " "Creating group %s on server %s with query %s." server-name mapc make-byte-code 257 "\211A\300\242\232\205
\301\302@\"\207" vconcat vector [throw server-name] 4 "\n\n(fn NAME-METHOD)" "\302A\300\242\"\205 \211 \235\204 \211 B\303\304@\"\207" [gnus-server-method-cache gnus-methods-equal-p throw server-name] (nil "") format "%s" "%s:%s" mapconcat identity " " nnmairix-create-search-group header achar query server char-header gnus-article-buffer buffer gnus-summary-buffer gnus-select-method gnus-server-method-cache gnus-server-alist gnus-predefined-server-alist] 17 (#$ . 21309) nil])
#@126 Interactively create new nnmairix server with default search group.
All necessary information will be queried from the user.
(defalias 'nnmairix-create-server-and-default-group #[nil "\306\307!\310\311\312 \313#\306\314\315\"\306\316!\317 \211\203# \211<\203# \211\206X\320\f\"A\206X\211\321\232\2035
\206D\3205\"A\206D\3206\"A\206D7\211\203f \322\323@@@@@A@#\232\204f \211A\266\202\202I \211@@\262\206D8\211\203\213 \322\323@@@A@#\232\204\213 \211A\266\202\202p \211@\262\206D9A\324\211\203B\211A\262\242\3258\262\262;\204\227 \324\313C\32623\211\242\206\276
\240\210\204\325 \327\330\331\332\333\334!\335\"\325\336%\f\"\21056D\211\203\370 \211@\327\330\331\337\333\334!\340\"\325\336%\"\210A\266\202\202\332 \210\211\242A@\341\235\203 \322\342\242@\"\202\322\323\242@\242A@#\211\242B\211\f\235\204/\204/\320@\f\"\204/\211\fB\266\2020\266\204\232\203\227 \262\324\262\202\227 \266\202\211\203U\320\f\"\204UB\fB\211\262\262@! : \211\203l\211<\203l\211\206\241\320\f\"A\206\241\211\321\232\203~
\206\215\3205\"A\206\215\3206\"A\206\2157\211\203\257\322\323@@@@@A@#\232\204\257\211A\266\202\202\222\211@@\262\206\2158\211\203\324\322\323@@@A@#\232\204\324\211A\266\202\202\271\211@\262\206\2159A\324\211\203\213\211A\262\242\3258\262\262;\204\340\324\313C\3262|\211\242\206
\240\210\204 \327\330\331\332\333\334!\335\"\325\336%\f\"\21056D\211\203A\211@\327\330\331\337\333\334!\340\"\325\336%\"\210A\266\202\202#\210\211\242A@\341\235\203T\322\342\242@\"\202^\322\323\242@\242A@#\211\242B\211\f\235\204x\204x\320@\f\"\204x\211\fB\266\2020\266\204\232\203\340\262\324\262\202\340\266\202\211\203\236\320\f\"\204\236B\fB\211\262\262A@ ;\343\344:\"\205\262\345\346! <\324 =\347\350\322\351:\352#!;C\"\210<\203\326\343\353 \"\203\326\354 \355\"\356 \357\360\350:!D\361;D\362\nD\363<D\364 D\257\".\207" [name server mairix defaultgroup gnus-server-method-cache gnus-select-method read-string "Name of the mairix server: " gnus-completing-read "Back end server" nnmairix-get-valid-servers t "Command to call mairix: " "mairix" "Default search group: " symbol-name assoc "native" format "%s:%s" nil 4 server-name mapc make-byte-code 257 "\211A\300\242\232\205
\301\302@\"\207" vconcat vector [throw server-name] "\n\n(fn NAME-METHOD)" "\302A\300\242\"\205 \211 \235\204 \211 B\303\304@\"\207" [gnus-server-method-cache gnus-methods-equal-p throw server-name] (nil "") "%s" string-match "^nn\\(imap\\|maildir\\)$" y-or-n-p "Does the back end server work with maildir++ (i.e. hidden directories)? " apply intern "%s-%s" "open-server" "^\\." substring 1 gnus-group-make-group nnmairix nnmairix-backend nnmairix-backend-server nnmairix-mairix-command nnmairix-hidden-folders nnmairix-default-group gnus-server-alist gnus-predefined-server-alist gnus-opened-servers gnus-secondary-select-methods gnus-newsrc-alist backend servername hidden create] 19 (#$ . 23402) nil])
#@35 Set QUERY for group under cursor.
(defalias 'nnmairix-group-change-query-this-group #[(&optional query) "\304 \305!\306\303\307# @\310=\203A \n<\203 \311\312\n\313# \206' \314\315\n\"\211;\2031 \316 ! \205D \317\303 #\210\320!\202D \321\322!+\207" [group method oldquery query gnus-group-group-name gnus-find-method-for-group gnus-group-get-parameter t nnmairix mapconcat identity " " read-string "New query: " split-string gnus-group-set-parameter nnmairix-update-and-clear-marks error "This is no nnmairix group"] 5 (#$ . 26451) nil])
#@151 Toggle threads parameter for this group.
If THREADS is a positive number, set threads parameter to t.
If THREADS is a negative number, set it to nil.
(defalias 'nnmairix-group-toggle-threads-this-group #[(&optional threads) "\302 \303\301\304 $\205 \305!)\207" [group threads gnus-group-group-name nnmairix-group-toggle-parameter "Threads" nnmairix-update-and-clear-marks] 5 (#$ . 27006) nil])
#@147 Toggle marks propagation for this group.
If PROPMARKS is a positive number, set parameter to t.
If PROPMARKS is a negative number, set it to nil.
(defalias 'nnmairix-group-toggle-propmarks-this-group #[(&optional propmarks) "\302\303!\204\n \304\305!\210\306 \307!\310\311\312!\"A@\230\203\" \313\314!\205( \315\301\316 $)\207" [group propmarks nnmairix-check-mairix-version "maildirpatch" error "You need a mairix binary with maildir patch to use this feature. See docs for details" gnus-group-group-name gnus-group-short-name assoc nnmairix-default-group gnus-find-method-for-group y-or-n-p "You should not activate marks propagation for the default search group. Are you sure? " nnmairix-group-toggle-parameter "Marks propagation"] 5 (#$ . 27411) nil])
#@143 Toggle fast entering for this group.
If ALLOWFAST is a positive number, set parameter to t.
If ALLOWFAST is a negative number, set it to nil.
(defalias 'nnmairix-group-toggle-allowfast-this-group #[(&optional allowfast) "\301\302 \303\304$\207" [allowfast nnmairix-group-toggle-parameter gnus-group-group-name allow-fast "Fast entering"] 5 (#$ . 28180) nil])
#@228 Toggle read/unread marks for this group.
If READMARKS is a positive number, articles will always be read.
If READMARKS is a negative number, articles will always be unread.
If READMARKS is t or zero, marks will stay unchanged.
(defalias 'nnmairix-group-toggle-readmarks-this-group #[(&optional readmarks) "\303 \304!\n\206 \305\302\" @\306=\203a \n\247\203\" \n\307W\204( \n\310=\2036 \311\302\312#\210\313\314\315#\202d \n\247\203A \n\307V\204E \n\204S \311\302\310#\210\313\314\316#\202d \311\302\317#\210\313\314\320#\202d \321\322!+\207" [group method readmarks gnus-group-group-name gnus-find-method-for-group gnus-group-get-parameter nnmairix 0 read gnus-group-set-parameter unread nnheader-message 3 "Articles in %s always unread." "Articles in %s always read." nil "Read marks in %s stay unchanged." error "This is no nnmairix group"] 4 (#$ . 28547) nil])
#@271 Sends QUERY to nnmairix backend SERVER, using default its search group.
Default search group is automatically entered and results are shown.
If THREADS is t, enable threads.
If THREADS is a negative number, disable threads.
Otherwise, leave threads parameter as it is.
(defalias 'nnmairix-search #[(query &optional server threads) "\204 \306 @\204 \307\310!\210\202T\211\203! \211<\203! \211\206Q\311 \"A\206Q\211\312\232\2033 \n\206=\311 \"A\206=\311\f\"A\206=
\211\203a \313\314@@@@@A@#\232\204a \211A\266\202\202D \211@@\262\206=)\211\203\206 \313\314@@@A@#\232\204\206 \211A\266\202\202k \211@\262\206=*A\315\211\203;\211A\262\242\3168\262\262;\204\222 \315\317C\3202,\211\242\206\271 \n\240\210\204\320 \321\322\323\324\325\326!\327\"\316\330% \"\210 \fD\211\203\361 \211@\321\322\323\331\325\326!\332\"\316\330%\"\210A\266\202\202\323 \210\211\242A@\333\235\203\313\334\242@\"\202\313\314\242@\242A@#\211\242B\211 \235\204(\204(\311@ \"\204(\211 B\266\2020\266\204\232\203\222 \262\315\262\202\222 \266\202\211\203N\311 \"\204NB B\211\262\262\335A@!\210\336+\337A@D\" ,-q\210\";\203u\340\"!\"\341,\342\"#\210#9\203\224#\317=\203\242\341,\343\317#\210\202\242#\344W\203\242\341,\343\315#\210\345,!\210\346,.\"\347\232?\205\271\350\315\317,#)\207" [server gnus-server-method-cache gnus-select-method gnus-server-alist gnus-predefined-server-alist gnus-opened-servers nnmairix-get-server error "No opened nnmairix server found" assoc "native" format "%s:%s" nil 4 t server-name mapc make-byte-code 257 "\211A\300\242\232\205
\301\302@\"\207" vconcat vector [throw server-name] "\n\n(fn NAME-METHOD)" "\302A\300\242\"\205 \211 \235\204 \211 B\303\304@\"\207" [gnus-server-method-cache gnus-methods-equal-p throw server-name] (nil "") "%s" nnmairix-open-server gnus-group-prefixed-name nnmairix split-string gnus-group-set-parameter query threads 0 nnmairix-update-and-clear-marks gethash (1 . 0) gnus-group-read-group gnus-secondary-select-methods gnus-newsrc-alist nnmairix-default-group qualgroup gnus-group-buffer gnus-active-hashtb] 18 (#$ . 29430) (list (read-string "Query: "))])
#@158 Search thread for the current article.
This is effectively a shortcut for calling `nnmairix-search'
with m:msgid of the current article and enabled threads.
(defalias 'nnmairix-search-thread-this-article #[nil "\305!\306 \203M \211 \205 \307\310\f!\211!\205 \f)\203G r q\210\311\312!\210\313\314!)\315\316\n\"\203= \317\320\321\211\n$\202, \322\323\nP \321#\202W \324\325!\202W \326\327\330@!A@#*\207" [gnus-current-select-method server mid gnus-article-buffer buffer nnmairix-backend-to-server nil buffer-live-p get-buffer gnus-summary-toggle-header 1 message-fetch-field "Message-ID" string-match "[<>]" replace-match "" t nnmairix-search "m:" message "No article buffer." error "No nnmairix server found for back end %s:%s" symbol-name] 6 (#$ . 31633) nil])
#@135 Search messages from sender of the current article.
This is effectively a shortcut for calling `nnmairix-search' with
f:current_from.
(defalias 'nnmairix-search-from-this-article #[nil "\305!\306 \203@ \211 \205 \307\310\f!\211!\205 \f)\203: r q\210\311\312!\210\313\314\315!!A@\316\317\nP \320#)\202J \321\322!\202J \323\324\325@!A@#*\207" [gnus-current-select-method server from gnus-article-buffer buffer nnmairix-backend-to-server nil buffer-live-p get-buffer gnus-summary-toggle-header 1 gnus-extract-address-components gnus-fetch-field "From" nnmairix-search "f:" -1 message "No article buffer." error "No nnmairix server found for back end %s:%s" symbol-name] 5 (#$ . 32412) nil])
#@263 Delete mairix search groups which are no longer used.
You may want to call this from time to time if you are creating
and deleting lots of nnmairix groups. If DONTASK is t, do not ask
before deleting a group on the back end. SERVER specifies nnmairix server.
(defalias 'nnmairix-purge-old-groups #[(&optional dontask server) "\206F\306 @\211\203 \211<\203 \211\206D\307 \"A\206D\211\310\232\203& \n\2060\307 \"A\2060\307\f\"A\2060
\211\203T \311\312@@@@@A@#\232\204T \211A\266\202\2027 \211@@\262\2060-\211\203y \311\312@@@A@#\232\204y \211A\266\202\202^ \211@\262\2060.A\313\211\203.\211A\262\242\3148\262\262;\204\205 \313\315C\3162 \211\242\206\254 \n\240\210\204\303 \317\320\321\322\323\324!\325\"\314\326% \"\210 \fD\211\203\344 \211@\317\320\321\327\323\324!\330\"\314\326%\"\210A\266\202\202\306 \210\211\242A@\331\235\203\367 \311\332\242@\"\202\311\312\242@\242A@#\211\242B\211 \235\204\204\307@ \"\204\211 B\266\2020\266\204\232\203\205 \262\313\262\202\205 \266\202\211\203A\307 \"\204AB B\211\262\262\333A@!\203\265\334\335/\"\205\273\313\211\211 % 0 1r2q\210eb\210\3363d\315#\205\261\337\340!1\341\337\342!\"0\34304\"\203\2221\3440\345\"\230\204h5\204\245\346\3471\350/\351\260!\203h\334\3521\315/$\210\202h,\202\273\353\354A@\")\207" [server gnus-server-method-cache gnus-select-method gnus-server-alist gnus-predefined-server-alist gnus-opened-servers nnmairix-get-server assoc "native" format "%s:%s" nil 4 t server-name mapc make-byte-code 257 "\211A\300\242\232\205
\301\302@\"\207" vconcat vector [throw server-name] "\n\n(fn NAME-METHOD)" "\302A\300\242\"\205 \211 \235\204 \211 B\303\304@\"\207" [gnus-server-method-cache gnus-methods-equal-p throw server-name] (nil "") "%s" nnmairix-open-server nnmairix-call-backend "request-list" re-search-forward match-string 0 gnus-group-prefixed-name 1 gethash gnus-group-get-parameter folder y-or-n-p "Delete group " " on server " "? " "request-delete-group" message "Couldn't open server %s" gnus-secondary-select-methods gnus-newsrc-alist nnmairix-backend-server qualgroup cur nntp-server-buffer nnmairix-group-regexp gnus-newsrc-hashtb dontask] 18 (#$ . 33117) nil])
#@258 Call mairix for updating the database for SERVERS.
If SERVERS is nil, do update for all nnmairix servers. Mairix
will be called asynchronously unless
`nnmairix-mairix-synchronous-update' is t. Mairix will be called
with `nnmairix-mairix-update-options'.
(defalias 'nnmairix-update-database #[(&optional servers) "\206 \306 \307\211\211\205\322\211A\242@\310\n\211\203' \211<\203' \211\206\\\311\f\"A\206\\\211\312\232\2039
\206H\311)\"A\206H\311*\"A\206H+\211\203j \313\314@@@@@A@#\232\204j \211A\266\202\202M \211@@\262\206H,\211\203\217 \313\314@@@A@#\232\204\217 \211A\266\202\202t \211@\262\206H-A\307\211\203F\211A\262\242\3158\262\262;\204\233 \307\316C\31727\211\242\206\302
\240\210\204\331 \320\321\322\323\324\325!\326\"\315\327%\f\"\210)*D\211\203\374 \211@\320\321\322\330\324\325!\331\"\315\327%\"\210A\266\202\202\336 \210\211\242A@\332\235\203\313\333\242@\"\202\313\314\242@\242A@#\211\242B\211\f\235\2043\2043\311@\f\"\2043\211\fB\266\2020\266\204\232\203\233 \262\307\262\202\233 \266\202\211\203Y\311\f\"\204YB\fB\211\262\262A@!\210\334.!\335\336\337\n#\210/\203\244\340 @\307\3410!\307F! G\342V\203\220\340 A1#\202\226\340 1\"\343\344 \"\210\335\336\345\n#\210\202
\340\n\3410! @E! G\342V\203\301\340 A1#\202\307\340 1\"\346\343\347 \"\350\"\210\202
,\207" [servers commandsplit cur args gnus-server-method-cache gnus-select-method nnmairix-get-nnmairix-servers nil nnmairix-open-server assoc "native" format "%s:%s" 4 t server-name mapc make-byte-code 257 "\211A\300\242\232\205
\301\302@\"\207" vconcat vector [throw server-name] "\n\n(fn NAME-METHOD)" "\302A\300\242\"\205 \211 \235\204 \211 B\303\304@\"\207" [gnus-server-method-cache gnus-methods-equal-p throw server-name] (nil "") "%s" split-string nnheader-message 7 "Updating mairix database for %s..." append get-buffer 1 apply call-process "Updating mairix database for %s... done" set-process-sentinel start-process nnmairix-sentinel-mairix-update-finished gnus-server-alist gnus-predefined-server-alist gnus-opened-servers gnus-secondary-select-methods gnus-newsrc-alist nnmairix-mairix-command nnmairix-mairix-synchronous-update nnmairix-mairix-output-buffer nnmairix-mairix-update-options] 19 (#$ . 35369) nil])
#@137 Deletes and recreates group on the back end.
You can use this function on nnmairix groups which continuously
show wrong article counts.
(defalias 'nnmairix-group-delete-recreate-this-group #[nil "\302 \303!\211@\304=\204 \305\306!\210\307\310\311\"!\205! \312!\210\313 *\207" [group method gnus-group-group-name gnus-find-method-for-group nnmairix error "This is not a nnmairix group" y-or-n-p format "Really recreate group %s on the back end? " nnmairix-delete-recreate-group gnus-group-get-new-news-this-group] 5 (#$ . 37693) nil])
#@186 Propagate marks from nnmairix group to original articles.
Unless SERVER is explicitly specified, will use the last opened
nnmairix server. Only marks from current session will be set.
(defalias 'nnmairix-propagate-marks #[(&optional server) "\203 \306!\210\202! @\307=\204! \n\203 \306\n!\210\202! \310\311!\210 \203<\312\211\211\211\211\211 \" # $ %\3132\345 \211A\242\211$\205\344 $\211 &A\211 '&'A\241\210*\242\211\2039 \314
@$@\"A\211%\204x \315\316\317
@$@$\210\320\313\312\"\210\321$@#\"\211\203\316 \3222\312 \fA\312 (\211 )\203\273 )@\211(A
A@\323
8D\232\203\262 (@%C\244\210\320\322\312\"\210)A\211)\204\223 *\f%C
A@\323
8EC\2440\210\202D $@%C
A@\323
8ED#B#\202D 0\210r*q\210\315\324\325\"\210#\312 (\211 )\2034)@(\326(@!\"\327\330\331\332\333\"@!\334#!\335(@!(A\"A@C$\210\336(@!\210\337 \210)A\211)\204\373 +\315\324\340\".\207\315\316\341\"\207" [server gnus-current-select-method nnmairix-current-server nnmairix-marks-cache temp mid-marks nnmairix-open-server nnmairix error "No opened nnmairix server" nil problem gnus-request-head nnheader-message 3 "Unable to set mark: couldn't determine article number for %s in %s" throw assoc done 2 5 "nnmairix: Propagating marks..." gnus-find-method-for-group apply intern format "%s-%s" symbol-name "request-set-mark" gnus-group-short-name gnus-group-jump-to-group gnus-group-get-new-news-this-group "nnmairix: Propagating marks... done" "No marks to propagate." method number-cache ogroup number #1=#:v #2=#:x cur --dolist-tail-- gnus-group-buffer] 7 (#$ . 38240) nil])
#@173 Update all search groups on SERVERNAME.
If SKIPDEFAULT is t, the default search group will not be
updated.
If UPDATEDB is t, database for SERVERNAME will be updated first.
(defalias 'nnmairix-update-groups #[(servername &optional skipdefault updatedb) "\212\306\307\"\203
\310\311\"\312\313\314\"\315 \"\204 \316\317\320#\202\311 \2030 \321\322\313\314\"CC!\210)\323!\324
\203\227\313\325\312\326\313\314\"\211\203P \211<\203P \211\206\220\312*\"A\206\220\211\327\232\203d +\206y\312,\"A\206y\312-\"A\206y.\211\203\225 \313\330@@@@@A@#\232\204\225 \211A\266\202\202x \211@@\262\206y/\211\203\272 \313\330@@@A@#\232\204\272 \211A\266\202\202\237 \211@\262\206y0A\324\211\203w\211A\262\242\3318\262\262;\204\306 \324\321C\3322h\211\242\206\356 +\240\210\204\333\334\335\336\337\340!\341\"\331\342%*\"\210,-D\211\203)\211@\333\334\335\343\337\340!\344\"\331\342%\"\210A\266\202\202 \210\211\242A@\345\235\203<\313\346\242@\"\202F\313\330\242@\242A@#\211\242B\211*\235\204d\204d\312@*\"\204d\211*B*\266\2020\266\204\232\203\306 \262\324\262\202\306 \266\202\211\203\215\312*\"\204\215B*B*\211\262\262\"A@#\f\324 1\211 2\203\3052@1
\203\2621@ \230\204\274\3471@!\210\350\311!\2102A\2112\204\241*\351 *)\207" [servername updatedb nnmairix-mairix-synchronous-update default groups skipdefault string-match ".*:\\(.*\\)" match-string 1 assoc format "nnmairix:%s" nnmairix-get-nnmairix-servers nnheader-message 3 "Server %s not opened" t nnmairix-update-database nnmairix-get-groups-from-server nil "nnmairix+%s:%s" nnmairix-default-group "native" "%s:%s" 4 server-name mapc make-byte-code 257 "\211A\300\242\232\205
\301\302@\"\207" vconcat vector [throw server-name] "\n\n(fn NAME-METHOD)" "\302A\300\242\"\205 \211 \235\204 \211 B\303\304@\"\207" [gnus-server-method-cache gnus-methods-equal-p throw server-name] (nil "") "%s" gnus-group-jump-to-group gnus-group-mark-group gnus-group-get-new-news-this-group gnus-server-method-cache gnus-select-method gnus-server-alist gnus-predefined-server-alist gnus-opened-servers gnus-secondary-select-methods gnus-newsrc-alist cur --dolist-tail--] 24 (#$ . 39822) (list (gnus-completing-read "Update groups on server" (nnmairix-get-nnmairix-servers)))])
#@95 Remove tick mark from original article.
Marks propagation has to be enabled for this to work.
(defalias 'nnmairix-remove-tick-mark-original-article #[nil "@\306=\204 \307\310!\210\212\311\312`\313\"\211\205 \314!\266\312`\315\"\206# \316 \"\317\n8)\211\320H)\321\211 \211 \205y \322
!\211\204K \204K \323
\"\f\204S \307\324!\210\f\321\211 \203s @\211
\325BD B A\211\204\\ *\326\327\330
#,\207" [gnus-current-select-method gnus-newsgroup-data cl-x cur groups mid nnmairix error "Not in a nnmairix group" gnus-data-find-in get-text-property gnus-intangible gnus-summary-goto-subject gnus-number gnus-summary-last-subject 3 4 nil nnmairix-determine-original-group-from-registry nnmairix-determine-original-group-from-path "Couldn't find original article" (del (tick)) nnheader-message 5 "Will remove tick mark for %s upon closing." nnmairix-only-use-registry nnmairix-current-server --dolist-tail-- nnmairix-marks-cache] 5 (#$ . 42135) nil])
#@82 Request FOLDER on back end for nnmairix QUALGROUP and article number correction.
(defalias 'nnmairix-request-group-with-article-number-correction #[(folder qualgroup) "\212\306\307 #\210\nq\210eb\210\310\311!\210\312\313\314\315!\"\210 q\210eb\210\316p!\316p!\316p!\316p!\317\f\320\321# \211 !\322U\203\270
\203z
AA@ \\\315V\203z
@\203g \323
AA@
AA@ \\E\324\f\320
#\210
A@\\
A@\\ \202\214 \"#\235\203\214 \324\f\320\323\315 E#\210\325 \210\326\327! \f $\330\331$\"\203\255 \332$\315\225\"\202\257 $)&c\210\321\202\277 \333\334\335#\210\323.\207" [folder nnmairix-backend-server nnmairix-mairix-output-buffer nntp-server-buffer qualgroup corr nnmairix-call-backend "request-group" re-search-forward "^Matched.*messages" nnheader-message 7 match-string 0 read gnus-group-get-parameter numcorr t 211 nil gnus-group-set-parameter erase-buffer format "%d %d %d %d %s" string-match "^[^:]+:" substring nnheader-report nnmairix "Error calling back end on group %s" high low total status nnmairix-backend nnmairix-delete-and-create-on-change gname] 10 (#$ . 43106)])
#@108 Call mairix binary with COMMAND, using FOLDER and SEARCHQUERY.
If THREADS is non-nil, enable full threads.
(defalias 'nnmairix-call-mairix-binary #[(command folder searchquery threads) "@\306Br\307\n!q\210\310 \210G\311V\203 \312 A\" \203$ \312 \"\313\314!\203/ \312 \315\"\f\2038 \312 \316\"\317\320\312 \321
D#\"*\207" [command args nnmairix-mairix-output-buffer nnmairix-mairix-search-options threads folder (nil t nil) get-buffer-create erase-buffer 1 append nnmairix-check-mairix-version "maildirpatch" ("-c") ("-t") apply call-process "-o" searchquery] 6 (#$ . 44207)])
#@56 Call mairix binary with COMMAND and QUERY in raw mode.
(defalias 'nnmairix-call-mairix-binary-raw #[(command query) "@\304Br\305\n!q\210\306 \210G\307V\203 \310 A\"\310 \311\"\312\313\310 \"\"*\207" [command args nnmairix-mairix-output-buffer query (nil t nil) get-buffer-create erase-buffer 1 append ("-r") apply call-process] 5 (#$ . 44801)])
#@93 If there exists just one nnmairix server, return its value.
Otherwise, ask user for server.
(defalias 'nnmairix-get-server #[nil "\302 \211\204 \303\304!\210G\305V\203( \306\307\310 \206 \311$C\211\312\232\204 \202* @)\207" [openedserver nnmairix-last-server nnmairix-get-nnmairix-servers error "No opened nnmairix server found" 1 gnus-completing-read "Server" t "nnmairix:" ("")] 6 (#$ . 45160)])
#@87 Return available nnmairix servers.
If ALL is t, return also the unopened/failed ones.
(defalias 'nnmairix-get-nnmairix-servers #[(&optional all) "\306\211 \203C \211A\242\211\203 \f\204 \nA@\307=\203 \n@@\310=\203 \n@
\235\204 \311\n@@!\312\n@A@Q\211C B\202 +\207" [gnus-opened-servers openedserver server alist all gnus-ephemeral-servers nil ok nnmairix symbol-name ":"] 4 (#$ . 45573)])
#@60 Return list of valid back end servers for nnmairix groups.
(defalias 'nnmairix-get-valid-servers #[nil "\306\307!\310\211\211\211\211 # $#\310\211 %\203\332%@\311\312\313 @\211\2032 \211<\2032 \211\206q\312&\"A\206q\211\314\232\203F '\206Z\312(\"A\206Z\312)\"A\206Z\211\203v \315\316@@@@@A@#\232\204v \211A\266\202\202Y \211@@\262\206Z*\211\203\233 \315\316@@@A@#\232\204\233 \211A\266\202\202\200 \211@\262\206Z+A\310\211\203X\211A\262\242\3178\262\262;\204\247 \310\307C\3202I\211\242\206\317 '\240\210\204\347 \321\322\323\324\325\326!\327\"\317\330%&\"\210()D\211\203\n\211@\321\322\323\331\325\326!\332\"\317\330%\"\210A\266\202\202\354 \210\211\242A@\333\235\203 \315\334\242@\"\202'\315\316\242@\242A@#\211\242B\211&\235\204E\204E\312@&\"\204E\211&B&\266\2020\266\204\232\203\247 \262\310\262\202\247 \266\202\211\203n\312&\"\204nB&B&\211\262\262\"A@!\335\312\336 @\211\203\211\211<\203\211\211\206\310\312&\"A\206\310\211\314\232\203\235'\206\261\312(\"A\206\261\312)\"A\206\261\211\203\315\315\316@@@@@A@#\232\204\315\211A\266\202\202\260\211@@\262\206\261*\211\203\362\315\316@@@A@#\232\204\362\211A\266\202\202\327\211@\262\206\261+A\310\211\203\257\211A\262\242\3178\262\262;\204\376\310\307C\3202\240\211\242\206&'\240\210\204>\321\322\323\324\325\326!\327\"\317\330%&\"\210()D\211\203a\211@\321\322\323\331\325\326!\332\"\317\330%\"\210A\266\202\202C\210\211\242A@\333\235\203t\315\334\242@\"\202~\315\316\242@\242A@#\211\242B\211&\235\204\234\204\234\312@&\"\204\234\211&B&\266\2020\266\204\232\203\376\262\310\262\202\376\266\202\211\203\305\312&\"\204\305B&B&\211\262\262\"A@Q\nB%A\211%\204 *$\203?$\211A$\242\211@\310\211C\3202t\211\242\206\372'\240\210\204\321\322\323\324\325\326!\337\"\317\330%&\"\210()D\211\2035\211@\321\322\323\331\325\326!\340\"\317\330%\"\210A\266\202\202\210\211\242A@\341\235\203H\315\334\242@\"\202R\315\316\242@\242A@#\211\242B\211&\235\204p\204p\312@&\"\204p\211&B&\266\2020\266\204\211\314\230\203\210\315\316
@@
@A@#
\203\333
A@\342=\203\333
@@,\235\203\333
@-\235\204\333
@\310\211C\32021\211\242\206\267'\240\210\204\317\321\322\323\324\325\326!\337\"\317\330%&\"\210()D\211\203\362\211@\321\322\323\331\325\326!\340\"\317\330%\"\210A\266\202\202\324\210\211\242A@\341\235\203\315\334\242@\"\202\315\316\242@\242A@#\211\242B\211&\235\204-\204-\312@&\"\204-\211&B&\266\2020\266\204\n\235\204\333\f B\202\333 .\207" [gnus-opened-servers cur occ openedserver mserver server nnmairix-get-nnmairix-servers t nil symbol-name assoc nnmairix-backend "native" format "%s:%s" 4 server-name mapc make-byte-code 257 "\211A\300\242\232\205
\301\302@\"\207" vconcat vector [throw server-name] "\n\n(fn NAME-METHOD)" "\302A\300\242\"\205 \211 \235\204 \211 B\303\304@\"\207" [gnus-server-method-cache gnus-methods-equal-p throw server-name] (nil #1="") "%s" ":" nnmairix-backend-server [throw server-name] [gnus-server-method-cache gnus-methods-equal-p throw server-name] (nil #1#) ok mairixservers alist --dolist-tail-- gnus-server-method-cache gnus-select-method gnus-server-alist gnus-predefined-server-alist gnus-secondary-select-methods gnus-newsrc-alist nnmairix-valid-backends gnus-ephemeral-servers] 23 (#$ . 45984)])
#@51 Return all groups for nnmairix server SERVERNAME.
(defalias 'nnmairix-get-groups-from-server #[(servername) "\306\307\"\310 \310 \211 \203'
@\311\n\f@\"\203 \f@C B
A\211\204 * *\207" [servername groups searchstring gnus-newsrc-alist cur --dolist-tail-- format "nnmairix\\+%s:" nil string-match] 4 (#$ . 49442)])
#@44 Call a function FUNC on backend with ARGS.
(defalias 'nnmairix-call-backend #[(func &rest args) "\303\304\305\306\307! #!\n\"\207" [nnmairix-backend func args apply intern format "%s-%s" symbol-name] 6 (#$ . 49769)])
#@54 Return back end GROUP from nnmairix group on SERVER.
(defalias 'nnmairix-get-backend-folder #[(group &optional server) "\203
\303 \304D\"\202 \305\n\306\")\207" [server group qualgroup gnus-group-prefixed-name nnmairix gnus-group-get-parameter folder] 5 (#$ . 49993)])
#@71 Return values for article number correction nnmairix GROUP on SERVER.
(defalias 'nnmairix-get-numcorr #[(group &optional server) "\203
\303 \304D\"\202 \305\n\306\307#)\207" [server group qualgroup gnus-group-prefixed-name nnmairix gnus-group-get-parameter numcorr t] 5 (#$ . 50274)])
#@168 Rename all nnml mail files in PATH so that they have consecutive numbers.
This should correct problems of wrong article counts when using
nnmairix with nnml backends.
(defalias 'nnmairix-rename-files-consecutively #[(path) "\305\306\307\310\311\312\313$\"\314\"\211@\315! \311\211 \205? \f@\211\nU\2044 \316\317 !P\317\n!P\"\210\n T\fA\211\204 \311-\207" [path files lastplusone cur --dolist-tail-- sort mapcar string-to-number directory-files nil "[0-9]+" t < file-name-as-directory rename-file number-to-string] 9 (#$ . 50572)])
#@224 Replace folder names in Xref header and correct article numbers.
Do this for all ARTICLES on BACKENDGROUP. Replace using
MAIRIXGROUP. NUMC contains values for article number correction.
TYPE is either `nov' or `headers'.
(defalias 'nnmairix-replace-group-and-numbers #[(articles backendgroup mairixgroup numc type) "\306\307\310\"\210\311=\203J \312\313! \314U?\315\n!\316\211\211 r q\210\317 \210\nq\210eb\210\320\321!\"\210\322\n!\210 q\210\323 !\210 .\202z \324=\203z \314U\204z r\nq\210\212eb\210\325\326\316\327#\203y \330\331\332\333\334!! \\!\327\211\316\334%\210\202^ *\306\307\335\"\207" [type numc nntp-server-buffer xref cur header nnheader-message 7 "nnmairix: Rewriting headers..." nov get-buffer-create " *nnmairix buffer*" 0 buffer-name nil erase-buffer mapc #[(article) "\306\307!!\204 \310!\205_ \311 \n\203# \312H \\ \211 \312I\210) \313H\211;\203L \314\315\316\"
\"\203L \317\315\320#\321\322
$ \211 \313
I\210)q\210\323 !\210q\210m?\205_ \324y\207" [article cur corr numc #1=#:v xref looking-at number-to-string nnheader-find-nov-line nnheader-parse-nov 0 8 string-match format "[ ]%s:[0-9]+" replace-match " %s:%d" t nil nnheader-insert-nov 1 backendgroup mairixgroup #2=#:v buf nntp-server-buffer] 6] kill-buffer rename-buffer headers re-search-forward "^[23][0-9]+ \\([0-9]+\\)" t replace-match number-to-string string-to-number match-string 1 "nnmairix: Rewriting headers... done" name corr buf articles] 6 (#$ . 51123)])
#@207 Return nnmairix server most probably responsible for back end SERVER.
User will be asked if this cannot be determined. Result is saved in
parameter `indexed-servers' of corresponding default search
group.
(defalias 'nnmairix-backend-to-server #[(server) "\306 \307\211\211\211G\310V\203\231 \203 \204 \211A\242@\211\203+ \211<\203+ \211\206`\311\f\"A\206`\211\312\232\203=
\206L\311*\"A\206L\311+\"A\206L,\211\203n \313\314@@@@@A@#\232\204n \211A\266\202\202Q \211@@\262\206L-\211\203\223 \313\314@@@A@#\232\204\223 \211A\266\202\202x \211@\262\206L.A\307\211\203J\211A\262\242\3158\262\262;\204\237 \307\316C\3172;\211\242\206\306
\240\210\204\335 \320\321\322\323\324\325!\326\"\315\327%\f\"\210*+D\211\203 \211@\320\321\322\330\324\325!\331\"\315\327%\"\210A\266\202\202\342 \210\211\242A@\332\235\203\313\333\242@\"\202 \313\314\242@\242A@#\211\242B\211\f\235\2047\2047\311@\f\"\2047\211\fB\266\2020\266\204\232\203\237 \262\307\262\202\237 \266\202\211\203]\311\f\"\204]B\fB\211\262\262\311\334\n\"A@/@=\205{\311\335\n\"A@/A@\230\211\204 \311\336\n\"A@/\307\211C\3172
\211\242\206\230
\240\210\204\257\320\321\322\323\324\325!\337\"\315\327%\f\"\210*+D\211\203\322\211@\320\321\322\330\324\325!\340\"\315\327%\"\210A\266\202\202\264\210\211\242A@\341\235\203\345\313\333\242@\"\202\357\313\314\242@\242A@#\211\242B\211\f\235\204 \204 \311@\f\"\204 \211\fB\266\2020\266\204\342\343\n\"\344\316#\235\202 \204\225\345\313\346/\307\211C\3172\251\211\242\2064
\240\210\204K\320\321\322\323\324\325!\337\"\315\327%\f\"\210*+D\211\203n\211@\320\321\322\330\324\325!\340\"\315\327%\"\210A\266\202\202P\210\211\242A@\341\235\203\201\313\333\242@\"\202\213\313\314\242@\242A@#\211\242B\211\f\235\204\245\204\245\311@\f\"\204\245\211\fB\266\2020\266\204\"\306 \307\347$\211\203\276\211<\203\276\211\206\363\311\f\"A\206\363\211\312\232\203\320
\206\337\311*\"A\206\337\311+\"A\206\337,\211\203\313\314@@@@@A@#\232\204\211A\266\202\202\344\211@@\262\206\337-\211\203&\313\314@@@A@#\232\204&\211A\266\202\202 \211@\262\206\337.A\307\211\203\335\211A\262\242\3158\262\262;\2042\307\316C\3172\316\211\242\206Y
\240\210\204p\320\321\322\323\324\325!\326\"\315\327%\f\"\210*+D\211\203\223\211@\320\321\322\330\324\325!\331\"\315\327%\"\210A\266\202\202u\210\211\242A@\332\235\203\246\313\333\242@\"\202\260\313\314\242@\242A@#\211\242B\211\f\235\204\312\204\312\311@\f\"\204\312\211\fB\266\2020\266\204\232\2032\262\307\262\2022\266\202\211\203\360\311\f\"\204\360B\fB\211\262\262\343\311\336\n\"A@\n\"\350\344\351\342\344\316#/\307\211C\3172\217\211\242\206
\240\210\2041\320\321\322\323\324\325!\337\"\315\327%\f\"\210*+D\211\203T\211@\320\321\322\330\324\325!\340\"\315\327%\"\210A\266\202\2026\210\211\242A@\341\235\203g\313\333\242@\"\202q\313\314\242@\242A@#\211\242B\211\f\235\204\213\204\213\311@\f\"\204\213\211\fB\266\2020\266\204C\"#\210\n\202\340 @@\211\203\251\211<\203\251\211\206\336\311\f\"A\206\336\211\312\232\203\273
\206\312\311*\"A\206\312\311+\"A\206\312,\211\203\354\313\314@@@@@A@#\232\204\354\211A\266\202\202\317\211@@\262\206\312-\211\203\313\314@@@A@#\232\204\211A\266\202\202\366\211@\262\206\312.A\307\211\203\310\211A\262\242\3158\262\262;\204 \307\316C\3172\271\211\242\206D
\240\210\204[\320\321\322\323\324\325!\326\"\315\327%\f\"\210*+D\211\203~\211@\320\321\322\330\324\325!\331\"\315\327%\"\210A\266\202\202`\210\211\242A@\332\235\203\221\313\333\242@\"\202\233\313\314\242@\242A@#\211\242B\211\f\235\204\265\204\265\311@\f\"\204\265\211\fB\266\2020\266\204\232\203 \262\307\262\202 \266\202\211\203\333\311\f\"\204\333B\fB\211\262\262,\207" [defaultgroup found mairixserver allservers gnus-server-method-cache gnus-select-method nnmairix-get-nnmairix-servers nil 1 assoc "native" format "%s:%s" 4 t server-name mapc make-byte-code 257 "\211A\300\242\232\205
\301\302@\"\207" vconcat vector [throw server-name] "\n\n(fn NAME-METHOD)" "\302A\300\242\"\205 \211 \235\204 \211 B\303\304@\"\207" [gnus-server-method-cache gnus-methods-equal-p throw server-name] (nil #1="") "%s" nnmairix-backend nnmairix-backend-server nnmairix-default-group [throw server-name] [gnus-server-method-cache gnus-methods-equal-p throw server-name] (nil #1#) gnus-group-get-parameter gnus-group-prefixed-name indexed-servers gnus-completing-read "Cannot determine which nnmairix server indexes %s. Please specify" "nnmairix:" gnus-group-set-parameter append gnus-server-alist gnus-predefined-server-alist gnus-opened-servers gnus-secondary-select-methods gnus-newsrc-alist server] 19 (#$ . 52616)])
#@56 Delete and recreate folder from GROUP on the back end.
(defalias 'nnmairix-delete-recreate-group #[(group) " \235\205* \306\n\303\"\307\f \"\203& \310\311
\"\210\310\312 \313
$\210\310\314
#\202) \315\316!)\207" [nnmairix-backend nnmairix-delete-and-create-on-change group folder nnmairix-group-regexp nnmairix-backend-server gnus-group-get-parameter string-match nnmairix-call-backend "open-server" "request-delete-group" t "request-create-group" error "`nnmairix-delete-recreate-group' called on non-mairix group. Check folder parameter"] 5 (#$ . 57501)])
#@59 Update group and clear all marks from GROUP using METHOD.
(defalias 'nnmairix-update-and-clear-marks #[(group &optional method) "\206 \306 !\307 \310\311#\312\313 !\204 \203 \314 \"@\315=\203i \212\316A@!\210\fq\210 \317
\"A@\262\320 \312#\210\321\n!\210\322 !\210\235\203_ \203_ \311\240\210\323 \310 #\210\324 !\210\325 )\202l \326\327!+\207" [method group info corr gnus-group-buffer gnus-newsrc-hashtb gnus-find-method-for-group gnus-group-get-parameter numcorr t nil gnus-group-prefixed-p gnus-group-prefixed-name nnmairix nnmairix-open-server gethash puthash gnus-info-clear-data nnmairix-delete-recreate-group gnus-group-set-parameter gnus-group-jump-to-group gnus-group-get-new-news-this-group error "`nnmairix-update-and-clear-marks' called with non-nnmairix group" gnus-active-hashtb nnmairix-backend nnmairix-delete-and-create-on-change] 5 (#$ . 58069)])
#@54 Sentinel for mairix update process PROC with STATUS.
(defalias 'nnmairix-sentinel-mairix-update-finished #[(proc status) "\303\232\203\f \304\305\306 #\207\307\310 \n#\207" [status proc nnmairix-mairix-output-buffer "finished\n" nnheader-message 7 "Updating mairix database for %s... done" error "There was an error updating the mairix database for server %s. See %s for details"] 4 (#$ . 58964)])
#@58 Create message line for interactive query in minibuffer.
(defalias 'nnmairix-create-message-line-for-search #[nil "\301\302\303#\207" [nnmairix-interactive-query-parameters mapconcat #[(cur) "\301\302@\3038#\207" [cur format "%c=%s" 3] 5] ","] 4 (#$ . 59370)])
#@56 Replace illegal characters in HEADER for mairix query.
(defalias 'nnmairix-replace-illegal-chars #[(header) "\205' \301\302\"\203 \303\304\305\211$\202 \301\306\"\203& \303\307\305\211$\202 \207" [header string-match "[^-.@/,& [:alnum:]]" replace-match "" t "[-& ]" ","] 5 (#$ . 59640)])
#@193 Toggle on GROUP a certain PARAMETER.
DESCRIPTION will be shown to the user with the activation
status. If PAR is a positive number, the group parameter will be
set to t and to nil otherwise.
(defalias 'nnmairix-group-toggle-parameter #[(group parameter description &optional par) "\305!\n\206
\306 \"? @\307=\203; \n\247\203 \n\310V\311 \n#\210\n\2031 \312\313\f#\210\2027 \312\314\f#\210\315\202@ \316\317!\210\320*\207" [group method par parameter description gnus-find-method-for-group gnus-group-get-parameter nnmairix 0 gnus-group-set-parameter message "%s activated for group %s" "%s deactivated for group %s" t error "This is no nnmairix group" nil] 4 (#$ . 59946)])
#@385 Jump to the original group and display article.
The original group of the article is first determined with the
registry (if enabled). If the registry is not enabled or did not
find the article or the prefix NO-REGISTRY is non-nil, this
function will try to determine the original group form the path
of the mail file. The path is obtained through another mairix
search in raw mode.
(defalias 'nnmairix-goto-original-article #[(&optional no-registry) "@\306=\204 \307 !\211@\306=\203 \310\nA@!\210\202 \311\312!\210) \211 \2051 \313\314\f!\211!\2051 \f)\2049 \311\315!\210A@\316\211\211\211 r q\210\317\320!\210\321\322! \204` \323 !
\204p !\204p \324 \"
G\320V\203\201 \325\326
\327# \202\205
@ ) \203\224 \330 \"\202\230 \331\332\333\"-\207" [gnus-current-select-method gnus-newsgroup-name method gnus-article-buffer buffer allgroups nnmairix gnus-find-method-for-group nnmairix-open-server error "Not in a nnmairix group" buffer-live-p get-buffer "No article buffer available" nil gnus-summary-toggle-header 1 message-fetch-field "Message-ID" nnmairix-determine-original-group-from-registry nnmairix-determine-original-group-from-path gnus-completing-read "Message exists in more than one group. Choose" t nnmairix-show-original-article nnheader-message 3 "Couldn't find original article" group rval mid server no-registry nnmairix-only-use-registry] 6 (#$ . 60638) "P"])
#@71 Try to determine original group for message-id MID from the registry.
(defalias 'nnmairix-determine-original-group-from-registry #[(mid) "\302\300!\205( \205( \303\304 \"\204 \305 PL\210\303\306 \"\204$ \211\307PL\210\310 \311\"\207" [gnus-registry-enabled mid boundp string-match "^<" "<" ">$" ">" gnus-registry-get-id-key group] 3 (#$ . 62052)])
#@140 Determine original group(s) for message-id MID from the file path.
The file path is obtained through a mairix search for the id on
SERVER.
(defalias 'nnmairix-determine-original-group-from-path #[(mid server) "\305!\210\306\307 \"\203 \310\311\312\211 $\202 \306\313 \"\203 \314P\306\313 \"\2031 \310\315\312\211 $\202 \316\317\320 !\321 PC\"\322U\203b r\fq\210eb\210\323\324\316\312#\203^ \325\326\322!!\nB\327y\210\202H )\202g \330\331\f\"\210\n)\207" [server mid allgroups nnmairix-mairix-command nnmairix-mairix-output-buffer nnmairix-open-server string-match "[<>]" replace-match "" t "\\$" "=" "=," nil nnmairix-call-mairix-binary-raw split-string "m:" 0 re-search-forward "^/.*$" nnmairix-get-group-from-file-path match-string 1 error "Mairix could not find original article. See buffer %s for details"] 5 (#$ . 62411)])
#@49 Get group by parsing the message location FILE.
(defalias 'nnmairix-get-group-from-file-path #[(file) "\306\211\211\211\211\211 \307\310&\"\210\311\312\313&\"!\312\314&\"\307\315\f\"\211\2033 \316\317\320
\321\211\313&\3222\330 '\306 (\211 )\205\326 )@( \204T (@@\323=\204a \203\314 (@@\324=\203\314 \203q \325\326(@\"A@\202\201 \325\327(@\"A@\211\204\201 \330\311 !!\307 \331P
\"\203\314 \312\313
\"\307\332\n\"\203\243 \333\320\321\211\n$ \204\270 \307\334\n\"\203\270 \333\335\321\211\n$\202\247 \336\n(@\"\337\n*\"\203\314 \340\322\n\"\210)A\211)\204B \306*0\211\204C\307\341
\"\210\312\313
\"\307\342\n\"\203\370 \333\334\321\211\n$\202\347 '\306 (\211 )\203/)@\211(@@\343=\203&\337\336\n(@\"*\"\203&\336\n(@\"B)A\211)\204*G\313V\203@\344\345\321#\202C@\n.\207" [allgroups maildirflag group serverbase filename path nil string-match "^\\(.*\\)/\\(.*?\\)$" expand-file-name match-string 1 2 ".+\\..+\\..+" replace-regexp-in-string ".*\\(/cur\\|/new\\|/tmp\\)$" "" t found nnml nnmaildir assoc directory nnml-directory file-name-as-directory "\\(.*\\)" "/$" replace-match "/" "." gnus-group-prefixed-name gethash throw "^.*/\\.?\\(.*\\)$" "\\." nnimap gnus-completing-read "Group %s exists on more than one IMAP server. Choose" file gnus-opened-servers cur --dolist-tail-- gnus-newsrc-hashtb] 8 (#$ . 63257)])
#@58 Switch to GROUP and display Article with message-id MID.
(defalias 'nnmairix-show-original-article #[(group mid) "\303\304\"\204
\305PL\210\303\306\"\204 \211\307PL\210\303\310\311p!\"\203& \312 \210\313 !\210\314\n!\210\315\n\316\317#\210\320!\210\321\322\323\"!\210\324 \210\325 \210\326\327\330\n#\207" [mid gnus-group-buffer group string-match "^<" "<" ">$" ">" "Summary" buffer-name gnus-summary-exit pop-to-buffer gnus-group-jump-to-group gnus-summary-read-group 1 t gnus-summary-refer-article gnus-summary-limit-to-headers format "message-id: %s" gnus-summary-select-article gnus-summary-show-article nnheader-message 5 "Switched to group %s."] 4 (#$ . 64639)])
#@44 Map function FUNC on all members of RANGE.
(defalias 'nnmairix-map-range #[(func range) "\247\203 !\207\302\303\"\207" [range func mapcar #[(cur) "<\203 @! A!B\207\247\205 !\207" [cur func] 3]] 3 (#$ . 65323)])
#@156 Check mairix VERSION on SERVER.
If VERSION is a number: specifies the minimum version.
If VERSION is a string: must be contained in mairix version output.
(defalias 'nnmairix-check-mairix-version #[(version &optional server) "\204 \306\n\"A@\211\204H \307\310! r\fq\210\311\216\312
! \313@C\314A\315$ \316\317\"\210eb\210\320\321!\210\322\323!*+\313\n DC\";\203V \324 \"\202j \247\205j \325\324\326 \"\210\322\327 \"!X)\207" [server nnmairix-current-server nnmairix-version-output versionstring #1=#:temp-buffer nnmairix-mairix-command assoc generate-new-buffer " *temp*" #[nil "\301!\205 \302!\207" [#1# buffer-name kill-buffer] 2] split-string append (nil t nil) ("-V") apply call-process re-search-forward "mairix.*" match-string 0 string-match string-to-number "mairix \\([0-9\\.]+\\)" 1 commandsplit args version] 6 (#$ . 65555)])
(defvar nnmairix-widgets-values nil)
#@71 Create mairix query based on current article using graphical widgets.
(defalias 'nnmairix-widget-search-from-this-article #[nil "\300\301 !\207" [nnmairix-widget-search nnmairix-widget-get-values] 2 (#$ . 66462) nil])
#@57 Create values for editable fields from current article.
(defalias 'nnmairix-widget-get-values #[nil "\211\205 \303\304 !\211!\205 )\204 \305\306!\207\212\307\310!\210q\210\311\312\n\")\207" [gnus-article-buffer buffer nnmairix-widget-fields-list buffer-live-p get-buffer error "No article buffer available" gnus-summary-toggle-header 1 mapcar #[(field) "AA@@\205 \301\302@!!D\207" [field nnmairix-replace-illegal-chars gnus-fetch-field] 4]] 4 (#$ . 66686)])
#@109 Create mairix query interactively using graphical widgets.
MVALUES may contain values from current article.
(defalias 'nnmairix-widget-search #[(&optional mvalues) " \210\303 !\210\304\305\306 \203 \307\202 \310\311$\210\312\313!\210\304\305\306 \203% \314\202& \315\316$\210\312\313!\210\304\305\306\317\320$\210\321\n!\210\322 \210eb\207" [nnmairix-widget-select-window-function mvalues widget-keymap nnmairix-widget-create-query widget-create push-button :notify #[(&rest ignore) "\301\302\"\207" [nnmairix-widgets nnmairix-widget-send-query t] 3] #[(&rest ignore) "\301\302\"\207" [nnmairix-widgets nnmairix-widget-send-query nil] 3] "Send Query" widget-insert " " #[(&rest ignore) "\301\302\"\207" [nnmairix-widgets nnmairix-widget-create-group t] 3] #[(&rest ignore) "\301\302\"\207" [nnmairix-widgets nnmairix-widget-create-group nil] 3] "Create permanent group" #[(&rest ignore) "\301!\207" [nnmairix-customize-query-buffer kill-buffer] 2] "Cancel" use-local-map widget-setup] 5 (#$ . 67163) nil])
#@98 Send query from WIDGETS to mairix binary.
If WITHVALUES is t, query is based on current article.
(defalias 'nnmairix-widget-send-query #[(widgets &optional withvalues) "\306\307! \203\223 \310\n!\311\211C\3122\216 \211\242\206 \240\210\2041 \313\314\315\316\317\320!\321\"\322\323%\f\"\210
!D\211\203S \211@\313\314\315\324\317\320!\325\"\322\323%\"\210A\266\202\2025 \210\211\242A@\326\235\203f \327\330\242@\"\202p \327\331\242@\242A@#\211\242B\211\f\235\204\212 \204\212 \332@\f\"\204\212 \211\fB\266\2020\266\204\202\226 \333 @\334\332\335\"A@!\203\245 \336\202\246 \337#\210\340\"!\207" [widgets withvalues gnus-current-select-method gnus-select-method gnus-server-method-cache gnus-server-alist nnmairix-search nnmairix-widget-make-query-from-widgets nnmairix-backend-to-server nil server-name mapc make-byte-code 257 "\211A\300\242\232\205
\301\302@\"\207" vconcat vector [throw server-name] 4 "\n\n(fn NAME-METHOD)" "\302A\300\242\"\205 \211 \235\204 \211 B\303\304@\"\207" [gnus-server-method-cache gnus-methods-equal-p throw server-name] (nil "") format "%s" "%s:%s" assoc nnmairix-get-server widget-value "Threads" t -1 kill-buffer gnus-predefined-server-alist nnmairix-customize-query-buffer] 15 (#$ . 68185)])
#@118 Create nnmairix group based on current widget values WIDGETS.
If WITHVALUES is t, query is based on current article.
(defalias 'nnmairix-widget-create-group #[(widgets &optional withvalues) "\306\307!\211G\310U\204\256 \311 \203\233 \312\n!\313\211C\3142\226 \211\242\206\" \240\210\2049 \315\316\317\320\321\322!\323\"\324\325%\f\"\210
\"D\211\203[ \211@\315\316\317\326\321\322!\327\"\324\325%\"\210A\266\202\202= \210\211\242A@\330\235\203n \331\332\242@\"\202x \331\333\242@\242A@#\211\242B\211\f\235\204\222 \204\222 \334@\f\"\204\222 \211\fB\266\2020\266\204\202\236 \335 @\336#!\337\334\340#\"A@!$\210)\341$!\207" [group withvalues gnus-current-select-method gnus-select-method gnus-server-method-cache gnus-server-alist read-string "Name of the group: " 0 nnmairix-create-search-group nnmairix-backend-to-server nil server-name mapc make-byte-code 257 "\211A\300\242\232\205
\301\302@\"\207" vconcat vector [throw server-name] 4 "\n\n(fn NAME-METHOD)" "\302A\300\242\"\205 \211 \235\204 \211 B\303\304@\"\207" [gnus-server-method-cache gnus-methods-equal-p throw server-name] (nil "") format "%s" "%s:%s" assoc nnmairix-get-server nnmairix-widget-make-query-from-widgets widget-value "Threads" kill-buffer gnus-predefined-server-alist widgets nnmairix-customize-query-buffer] 15 (#$ . 69445)])
#@49 Create mairix query from widget values WIDGETS.
(defalias 'nnmairix-widget-make-query-from-widgets #[(widgets) "\306\211\211 \306 \211 \203A
@\307\310\311\fAA@P\"A@!\203: \fA@\312\313\307\310\314\fAA@P\"A@!!Q\nB
A\211\204 *\315>\203\\ \316\317\320\321#\211G\322U\204\\ \323P\nB\316\324\n\325#+\207" [flag temp query nnmairix-widget-fields-list cur --dolist-tail-- nil widget-value assoc "c" ":" nnmairix-replace-illegal-chars "e" flags mapconcat #[(flag) "\303\304@ \"A@!\211\305\230\203 A@\207\n\306\230\205 \307A@P\207" [flag nnmairix-widgets temp widget-value assoc "yes" "no" "-"] 5] (("seen" "s") ("replied" "r") ("flagged" "f")) "" 0 "F:" identity " " widgets nnmairix-widget-other] 8 (#$ . 70784)])
#@84 Create widgets for creating mairix queries.
Fill in VALUES if based on an article.
(defalias 'nnmairix-widget-create-query #[(&optional values) "\305\306 !\203\f \307 !\210\310 !\210\311 \210\312 \210\313\314!\210\313\315\316!!\210\317\n!\320\f>\203W \313\321!\210\322\323\324\325\326\327\330\331&\210\313\332!\210\322\333\324\325\326\334\335\336&\210\313\337!\210\322\340\324\325\326\341\342\343&\210\344\f>\203g \313\345!\210\322\346\347\305#\210\313\350!)\207" [allwidgets nnmairix-customize-query-buffer values nnmairix-widgets nnmairix-widget-other nil get-buffer kill-buffer switch-to-buffer kill-all-local-variables erase-buffer widget-insert "Specify your query for Mairix (check boxes for activating fields):\n\n" substitute-command-keys "(Whitespaces will be converted to `,' (i.e. AND). Use `/' for OR.)\n\n" nnmairix-widget-build-editable-fields flags "\nFlags:\n Seen: " nnmairix-widget-add "seen" menu-choice :value "ignore" (item "yes") (item "no") (item "ignore") " Replied: " "replied" (item "yes") (item "no") (item "ignore") " Ticked: " "flagged" (item "yes") (item "no") (item "ignore") threads "\n" "Threads" checkbox " Show full threads\n\n"] 8 (#$ . 71519)])
#@132 Build editable field widgets in `nnmairix-widget-fields-list'.
VALUES may contain values for editable fields from current article.
(defalias 'nnmairix-widget-build-editable-fields #[(values) "\302\303\304 \"\210)\207" [ret nnmairix-widget-fields-list nil mapc #[(field) "AA@\303P\304\305\306\307\310\311&DC\312P\304\313\314\315\316\317\320\321\322GZ\323\"\324\260\325\326 \"A@\2063 \327&DC\244\n\244\330\331!\210\332\nA@A@\333\"\207" [field values ret "c" widget-create checkbox :tag :notify #[(widget &rest ignore) "\301!\207" [widget nnmairix-widget-toggle-activate] 2] nil "e" editable-field :size 60 :format " " ":" make-string 11 32 "%v" :value assoc "" widget-insert "\n" widget-apply :deactivate] 13]] 3 (#$ . 72735)])
#@39 Add a widget NAME with optional ARGS.
(defalias 'nnmairix-widget-add #[(name &rest args) "\303\304 \"D\nB\211\207" [name args nnmairix-widgets apply widget-create] 4 (#$ . 73482)])
#@79 Toggle activation status of WIDGET depending on corresponding checkbox value.
(defalias 'nnmairix-widget-toggle-activate #[(widget) "\303\304\"\305!\203 \306\307\310 P\n\"A@\311\"\210\202& \306\307\310 P\n\"A@\312\"\210)\313 \207" [widget field nnmairix-widgets widget-get :tag widget-value widget-apply assoc "e" :activate :deactivate widget-setup] 4 (#$ . 73671)])
(provide 'nnmairix)
Mini Shell