diff options
| -rw-r--r-- | gnus-conf.el | 21 |
1 files changed, 12 insertions, 9 deletions
diff --git a/gnus-conf.el b/gnus-conf.el index 9347818..c57f7ff 100644 --- a/gnus-conf.el +++ b/gnus-conf.el @@ -182,18 +182,19 @@ groups, so that is a generalization I do not need, at present." (let* ((filebase (file-name-nondirectory filename)) (server (cond - ((string-match-p "mbsync/mymail/" filename) "durand") - ("gmail"))) + ((string-match-p "mbsync/mymail/" filename) "durand"))) (group (cond ((string-match-p "INBOX" filename) "private") ("sent")))) - (vector - (format "nnmaildir+%s:%s" server group) - (nnmaildir-base-name-to-article-number - (replace-regexp-in-string ":.*$" "" filebase) - group server) - 100))) + (cond + (server + (vector + (format "nnmaildir+%s:%s" server group) + (nnmaildir-base-name-to-article-number + (replace-regexp-in-string ":.*$" "" filebase) + group server) + 100))))) ;;;; Query function @@ -239,7 +240,9 @@ called with a universal argument \\[universal-argument]." results (apply #'vector - (mapcar #'durand-gnus-file-name-to-article-number results))) + (delq + nil + (mapcar #'durand-gnus-file-name-to-article-number results)))) ;; then read the articles (gnus-group-read-ephemeral-group (concat "nnselect-" (message-unique-id)) |