diff options
| author | Yuchen Pei <id@ypei.org> | 2025-08-15 09:23:24 +1000 |
|---|---|---|
| committer | Yuchen Pei <id@ypei.org> | 2025-08-15 09:23:24 +1000 |
| commit | da23c5a1d42feca4ce57e38df9bdcb539f338c7e (patch) | |
| tree | 8c45a6fefdad415894de4d46043151502e573efe /emacs/.emacs.d/lisp/my/my-gnus.el | |
| parent | 9f2b6aae90a3d8eaf78a20c10baf9f2358a35a16 (diff) | |
[emacs] iarc: show item info and listings
Diffstat (limited to 'emacs/.emacs.d/lisp/my/my-gnus.el')
| -rw-r--r-- | emacs/.emacs.d/lisp/my/my-gnus.el | 14 |
1 files changed, 7 insertions, 7 deletions
diff --git a/emacs/.emacs.d/lisp/my/my-gnus.el b/emacs/.emacs.d/lisp/my/my-gnus.el index d61efc8..7623548 100644 --- a/emacs/.emacs.d/lisp/my/my-gnus.el +++ b/emacs/.emacs.d/lisp/my/my-gnus.el @@ -427,13 +427,13 @@ The archiving target comes from `my-gnus-group-alist'." (start-process "isync" "*isync*" "mbsync" "-a") (lambda (proc event) (let ((status (process-exit-status proc))) - (when (eq status 0) - (message "isync in progress...done: %s" - (with-current-buffer (process-buffer proc) - (goto-char (point-max)) - (re-search-backward "
") - (buffer-substring (1+ (point)) (point-max)))) - (gnus-group-get-new-news)))))) + (message "isync in progress...%s: %s" + (if (eq status 0) "done" "failed") + (with-current-buffer (process-buffer proc) + (goto-char (point-max)) + (re-search-backward "
") + (buffer-substring (1+ (point)) (point-max)))) + (gnus-group-get-new-news))))) (defun my-gnus-group-refresh (arg) "Call `gnus-group-get-new-news' or, with a prefix arg, `my-isync-sync-mail'" |