daniel/emacs-conf
1
2
Fork 0
Code Issues 7 Pull Requests Projects Releases Wiki Activity

update packages and add valign

Browse Source
This commit is contained in:
Daniel Weschke
2026-04-05 20:00:27 +02:00
parent b062fb98e3
commit 03fb00e374
640 changed files with 109768 additions and 39311 deletions
Download Patch File Download Diff File Expand all files Collapse all files

35
lisp/org/ol-gnus.el
View File

@@ -1,6 +1,6 @@
;;; ol-gnus.el --- Links to Gnus Groups and Messages -*- lexical-binding: t; -*-
;; Copyright (C) 2004-2025 Free Software Foundation, Inc.
;; Copyright (C) 2004-2026 Free Software Foundation, Inc.
;; Author: Carsten Dominik <carsten.dominik@gmail.com>
;; Tassilo Horn <tassilo at member dot fsf dot org>
@@ -46,7 +46,6 @@
(declare-function gnus-activate-group "gnus-start" (group &optional scan dont-check method dont-sub-check))
(declare-function gnus-find-method-for-group "gnus" (group &optional info))
(declare-function gnus-article-show-summary "gnus-art" ())
(declare-function gnus-group-group-name "gnus-group")
(declare-function gnus-group-jump-to-group "gnus-group" (group &optional prompt))
(declare-function gnus-group-read-group "gnus-group" (&optional all no-article group select-articles))
@@ -227,8 +226,13 @@ If `org-store-link' was called with a prefix arg the meaning of
(defun org-gnus-follow-link (&optional group article)
"Follow a Gnus link to GROUP and ARTICLE."
(require 'gnus)
(funcall (cdr (assq 'gnus org-link-frame-setup)))
(when gnus-other-frame-object (select-frame gnus-other-frame-object))
(funcall (org-link-frame-setup-function 'gnus))
(when gnus-other-frame-object
(if (not (frame-live-p gnus-other-frame-object))
;; Error out in case org-link-frame-setup did not take care of setting up
;; the gnus frame if was activate previously.
(error "Couldn't select \'gnus-other-frame-object\', make sure it is active"))
(select-frame gnus-other-frame-object))
(let ((group (org-no-properties group))
(article (org-no-properties article)))
(cond
@@ -260,11 +264,24 @@ If `org-store-link' was called with a prefix arg the meaning of
(message "Couldn't follow Gnus link. The linked group is empty."))))
(group (gnus-group-jump-to-group group)))))
(defun org-gnus-no-new-news ()
"Like `\\[gnus]' but doesn't check for new news."
(cond ((gnus-alive-p) nil)
(org-gnus-no-server (gnus-no-server))
(t (gnus))))
(defun org-gnus-no-new-news (&optional other-frame)
"Like `\\[gnus]' but doesn't check for new news.
In case of OTHER-FRAME or `gnus-other-frame-object' call `gnus-other-frame'.
Ensures that `gnus-other-frame' is activated correctly if dead."
(let ((action (cond (org-gnus-no-server #'gnus-no-server)
(t #'gnus))))
(cond ((or other-frame gnus-other-frame-object)
(let ((gnus-other-frame-function action)
(gnus-other-frame-resume-function action))
(gnus-other-frame)))
(t (if (not (gnus-alive-p))
(funcall action))))))
(defun org-gnus-no-new-news-other-frame ()
"Like `org-gnus-no-new-news' but always in another frame."
(org-gnus-no-new-news t))
(provide 'ol-gnus)