diff options
| author | Yuchen Pei <id@ypei.org> | 2023-10-18 11:04:04 +1100 |
|---|---|---|
| committer | Yuchen Pei <id@ypei.org> | 2023-10-18 11:04:04 +1100 |
| commit | c846b2cea042ac3666d340305f46325cde68d674 (patch) | |
| tree | 06c7e2523649ff34625275bfa06dd66d0af920b6 /emacs/.emacs.d/lisp/my/my-org.el | |
| parent | 9d7aabd29f758306343d992489a7caafbf933b86 (diff) | |
[emacs] Some minor fixes
gnus: prefers plaintext
my-buffer: fixes a bug
my-org: fixing a local var
Diffstat (limited to 'emacs/.emacs.d/lisp/my/my-org.el')
| -rw-r--r-- | emacs/.emacs.d/lisp/my/my-org.el | 3 |
1 files changed, 2 insertions, 1 deletions
diff --git a/emacs/.emacs.d/lisp/my/my-org.el b/emacs/.emacs.d/lisp/my/my-org.el index 01082d8..69a4a9b 100644 --- a/emacs/.emacs.d/lisp/my/my-org.el +++ b/emacs/.emacs.d/lisp/my/my-org.el @@ -211,7 +211,8 @@ notes file." (let ((remove (list (match-beginning 0) (match-end 0))) (desc (when (match-end 2) (match-string-no-properties 2))) (link (match-string-no-properties 1)) - (target (alist-get 'archive my-gnus-group-default-targets))) + (target (alist-get 'archive my-gnus-group-default-targets)) + (new-link)) (pcase-dolist (`(,re . ,info) my-gnus-group-alist) (when (and (string-match re link) (alist-get 'archive info)) |