bug#58974: 28.2; saving a message in multiple groups

bug#58974: 28.2; saving a message in multiple groups

[Waleed Yousef]

I am trying to save the sent message to two groups: nnml:mail.misc and
the group in which the message is sent from:

(setq gnus-message-archive-group '(gnus-news-group-name "nnml:mail.misc"))

It never works.


In GNU Emacs 28.2 (build 1, x86_64-pc-linux-gnu, GTK+ Version 3.24.34, cairo version 1.17.6)
 of 2022-09-12 built on frederik
Windowing system distributor 'The X.Org Foundation', version 11.0.12101004
System Description: Arch Linux

Configured using:
 'configure --sysconfdir=/etc --prefix=/usr --libexecdir=/usr/lib
 --localstatedir=/var --with-cairo --with-harfbuzz --with-libsystemd
 --with-modules --with-x-toolkit=gtk3 'CFLAGS=-march=x86-64
 -mtune=generic -O2 -pipe -fno-plt -fexceptions -Wp,-D_FORTIFY_SOURCE=2
 -Wformat -Werror=format-security -fstack-clash-protection
 -fcf-protection -g -ffile-prefix-map=/build/emacs/src=/usr/src/debug
 -flto=auto' 'LDFLAGS=-Wl,-O1,--sort-common,--as-needed,-z,relro,-z,now
 -flto=auto''

Configured features:
ACL CAIRO DBUS FREETYPE GIF GLIB GMP GNUTLS GPM GSETTINGS HARFBUZZ JPEG
JSON LCMS2 LIBOTF LIBSYSTEMD LIBXML2 M17N_FLT MODULES NOTIFY INOTIFY
PDUMPER PNG RSVG SECCOMP SOUND THREADS TIFF TOOLKIT_SCROLL_BARS X11 XDBE
XIM XPM GTK3 ZLIB

Important settings:
  value of $LANG: en_US.utf8
  locale-coding-system: utf-8-unix

Major mode: Group

Minor modes in effect:
  gnus-topic-mode: t
  global-evil-surround-mode: t
  company-quickhelp-mode: t
  company-quickhelp-local-mode: t
  eval-sexp-fu-flash-mode: t
  flycheck-pos-tip-mode: t
  global-flycheck-mode: t
  show-smartparens-global-mode: t
  yas-global-mode: t
  yas-minor-mode: t
  helm-descbinds-mode: t
  helm-mode: t
  helm-minibuffer-history-mode: t
  helm-autoresize-mode: t
  helm--remap-mouse-mode: t
  async-bytecomp-package-mode: t
  evil-escape-mode: t
  projectile-mode: t
  gnus-undo-mode: t
  delete-selection-mode: t
  winner-mode: t
  winum-mode: t
  pupo-mode: t
  volatile-highlights-mode: t
  global-vi-tilde-fringe-mode: t
  global-undo-tree-mode: t
  spaceline-info-mode: t
  spaceline-helm-mode: t
  save-place-mode: t
  savehist-mode: t
  persp-mode: t
  global-hl-todo-mode: t
  purpose-mode: t
  eyebrowse-mode: t
  global-anzu-mode: t
  anzu-mode: t
  editorconfig-mode: t
  global-edit-server-edit-mode: t
  clean-aindent-mode: t
  which-key-mode: t
  override-global-mode: t
  shell-dirtrack-mode: t
  evil-mode: t
  evil-local-mode: t
  windmove-mode: t
  spacemacs-leader-override-mode: t
  global-spacemacs-leader-override-mode: t
  global-hl-line-mode: t
  xterm-mouse-mode: t
  global-auto-revert-mode: t
  recentf-mode: t
  ido-vertical-mode: t
  global-page-break-lines-mode: t
  global-eldoc-mode: t
  show-paren-mode: t
  electric-indent-mode: t
  mouse-wheel-mode: t
  file-name-shadow-mode: t
  global-font-lock-mode: t
  font-lock-mode: t
  auto-composition-mode: t
  auto-encryption-mode: t
  auto-compression-mode: t
  buffer-read-only: t
  column-number-mode: t
  line-number-mode: t
  transient-mark-mode: t

Load-path shadows:
/home/wyousef/.emacs.d/elpa/28.2/develop/load-env-vars-20180511.2210/load-env-vars hides /home/wyousef/.emacs.d/core/libs/forks/load-env-vars
/home/wyousef/.emacs.d/elpa/28.2/develop/spinner-1.7.4/spinner hides /home/wyousef/.emacs.d/core/libs/spinner
/home/wyousef/.emacs.d/elpa/28.2/develop/transient-20221028.1430/transient hides /usr/share/emacs/28.2/lisp/transient

Features:
(shadow emacsbug auto-highlight-symbol shr-color mm-archive
expand-region text-mode-expansions cc-mode-expansions
the-org-mode-expansions python-el-fgallina-expansions
html-mode-expansions er-basic-expansions expand-region-core
expand-region-custom helm-x-files helm-for-files helm-bookmark
helm-adaptive bookmark debug gnus-draft cus-start org-eldoc evil-org
ob-C smartparens-c cc-mode cc-fonts cc-guess cc-menus cc-cmds cc-styles
cc-align cc-engine cc-vars cc-defs ob-python smartparens-python python
ob-shell org-download org-attach org-id org-ref org-ref-core
org-ref-glossary org-ref-bibtex doi-utils org-ref-utils org-ref-export
citeproc citeproc-itemgetters citeproc-biblatex citeproc-bibtex
citeproc-cite citeproc-subbibs citeproc-sort citeproc-name
citeproc-formatters citeproc-number smartparens-rst smartparens-markdown
rst citeproc-proc citeproc-disamb citeproc-itemdata
citeproc-generic-elements citeproc-macro citeproc-choose citeproc-date
citeproc-context citeproc-prange citeproc-style citeproc-locale
citeproc-term citeproc-rt citeproc-lib citeproc-s org-ref-misc-links
org-ref-label-link org-ref-ref-links org-ref-citation-links
org-ref-bibliography-links bibtex-completion biblio biblio-download
biblio-dissemin biblio-ieee biblio-hal biblio-dblp biblio-crossref
biblio-arxiv timezone biblio-doi biblio-core parsebib org-superstar
toc-org ol-eww evil-collection-eww eww xdg url-queue ol-rmail ol-mhe
ol-irc ol-info ol-gnus ol-docview doc-view ol-bibtex ol-bbdb ol-w3m
ol-doi org-link-doi org-habit smiley gnus-bcklg mailalias smtpmail
sendmail sort helm-swoop cl-print misearch multi-isearch jka-compr
gnus-async qp gnus-ml gnus-cite mail-extr gnus-topic nndraft nnmh pop3
utf-7 gnutls imap rfc2104 nnselect gnus-search eieio-opt speedbar
ezimage dframe nnml nnfolder epa-file network-stream gnus-agent
gnus-srvr gnus-score score-mode nnvirtual gnus-msg nntp gnus-cache nnir
avy helm-command ffap helm-ring helm-elisp helm-eval edebug backtrace
helm-info evil-nerd-commenter evil-nerd-commenter-operator
evil-nerd-commenter-sdk smartparens-html sgml-mode facemenu
evil-surround company-files company-keywords company-etags company-gtags
company-semantic company-template company-dabbrev-code company-dabbrev
company-capf company-quickhelp php-extras company overseer pkg-info
url-http url-auth url-gw nsm epl auto-compile packed elisp-slime-nav
flycheck-elsa flycheck-package package-lint finder eval-sexp-fu
goto-addr vc-mtn vc-hg vc-git diff-mode vc-bzr vc-src vc-sccs vc-svn
vc-cvs vc-rcs vc vc-dispatcher bug-reference evil-lisp-state
flycheck-pos-tip pos-tip flycheck highlight-numbers parent-mode
rainbow-delimiters smartparens-config smartparens-latex smartparens-org
smartparens-text smartparens yasnippet-snippets yasnippet image-file
image-converter highlight-parentheses helm-external helm-net
tramp-archive tramp-gvfs zeroconf helm-descbinds helm-mode helm-misc
helm-files image-dired image-mode exif helm-buffers helm-occur helm-tags
helm-locate helm-grep helm-regexp helm-utils helm-help helm-types helm
helm-global-bindings helm-core async-bytecomp helm-source
helm-multi-match helm-lib evil-escape ox-pandoc ht ox-org ox-odt rng-loc
rng-uri rng-parse rng-match rng-dt rng-util rng-pttrn nxml-parse nxml-ns
nxml-enc xmltok nxml-util ox-latex ox-icalendar org-contacts
org-projectile projectile grep org-category-capture org-capture gnus-art
mm-uu mml2015 mm-view mml-smime smime dig gnus-sum shr kinsoku svg
gnus-group gnus-undo gnus-start gnus-dbus dbus gnus-cloud nnimap utf7
netrc gnus-spec gnus-win nnrss dom mm-url nnmail gnus-int gnus-range
mail-source message rmc puny rfc822 mml mml-sec epa mailabbrev gmm-utils
mailheader nnoo gnus nnheader gnus-util rmail rmail-loaddefs mail-utils
org-agenda org-refile ox-html table ox-ascii ox-publish ox org-element
avl-tree org ob ob-tangle ob-ref ob-lob ob-table ob-exp org-macro
org-footnote org-src ob-comint org-pcomplete org-list org-faces
org-entities org-version ob-emacs-lisp ob-core ob-eval org-table
oc-basic bibtex ol org-keys oc org-compat org-macs org-loaddefs cal-menu
calendar cal-loaddefs tramp-cache tramp-sh tramp tramp-loaddefs trampver
tramp-integration files-x tramp-compat parse-time iso8601 time-date
ls-lisp all-the-icons all-the-icons-faces data-material
data-weathericons data-octicons data-fileicons data-faicons
data-alltheicons magic-latex-buffer iimage tex-mode compile delsel
winner auto-dictionary async diminish evil-matchit
evil-matchit-evil-setup evil-matchit-sdk semantic/lex semantic/fw
mode-local find-func xterm-color ws-butler winum
spacemacs-purpose-popwin window-purpose-x imenu-list hideshow imenu
ibuf-ext ibuffer ibuffer-loaddefs evil-collection-dired dired
dired-loaddefs etags fileloop generator xref project volatile-highlights
vi-tilde-fringe undo-tree diff queue symbol-overlay string-inflection
spaceline-config spaceline-segments spaceline powerline
powerline-separators color powerline-themes saveplace savehist
restart-emacs desktop frameset server popwin persp-mode org-rich-yank
multi-line multi-line-find multi-line-enter multi-line-decorator
multi-line-respace multi-line-shared shut-up multi-line-cycle
multi-line-candidate journalctl-mode array hl-todo compat compat-macs
geben dbgp window-purpose window-purpose-fixes
window-purpose-prefix-overload window-purpose-switch let-alist
window-purpose-layout window-purpose-core window-purpose-configuration
window-purpose-utils eyebrowse evil-unimpaired f f-shortdoc shortdoc
text-property-search evil-textobj-line evil-mc evil-mc-command-execute
evil-mc-command-record evil-mc-cursor-make evil-mc-region
evil-mc-cursor-state evil-mc-undo evil-mc-vars evil-mc-known-commands
evil-mc-common evil-easymotion evil-collection-buff-menu evil-collection
annalist evil-anzu anzu emr popup s dash editorconfig editorconfig-core
editorconfig-core-handle editorconfig-fnmatch edit-server noutline
outline drag-stuff column-enforce-mode clean-aindent-mode clang-format
xml helm-easymenu cl drupal/pcomplete tex-site hybrid-mode
evil-evilified-state which-key use-package use-package-ensure
use-package-delight use-package-diminish use-package-bind-key bind-key
use-package-core hydra lv evil evil-integration evil-maps evil-commands
reveal flyspell ispell evil-jumps evil-command-window evil-search
evil-ex shell pcomplete comint ansi-color evil-types evil-macros
evil-repeat evil-states evil-core evil-common windmove calc
calc-loaddefs calc-macs thingatpt rect evil-digraphs evil-vars ring
bind-map info quelpa mm-decode mm-bodies mm-encode lisp-mnt mail-parse
rfc2231 rfc2047 rfc2045 mm-util ietf-drums mail-prsvr help-fns
radix-tree hl-line xt-mouse autorevert filenotify disp-table cl-extra
recentf tree-widget spacemacs-dark-theme spacemacs-common format-spec
finder-inf ido-vertical-mode ido core-spacemacs core-spacebind
core-use-package-ext core-transient-state core-micro-state core-toggle
core-keybindings core-fonts-support core-themes-support
core-display-init core-jump core-release-management core-custom-settings
core-configuration-layer core-progress-bar core-spacemacs-buffer
core-funcs spacemacs-ht inline help-mode warnings package browse-url url
url-proxy url-privacy url-expand url-methods url-history url-cookie
url-domsuf url-util mailcap url-handlers url-parse auth-source cl-seq
password-cache json map url-vars eieio eieio-core eieio-loaddefs epg
rfc6068 epg-config core-command-line core-debug edmacro kmacro derived
core-hooks page-break-lines easy-mmode core-env load-env-vars rx
core-dotspacemacs advice core-customization validate cus-edit pp
cus-load wid-edit seq byte-opt core-emacs-backports core-compilation
pcase bytecomp byte-compile cconv core-dumper subr-x spinner cl-macs gv
cl-loaddefs cl-lib core-load-paths core-versions core-early-funcs
iso-transl tooltip eldoc paren electric uniquify ediff-hook vc-hooks
lisp-float-type elisp-mode mwheel term/x-win x-win term/common-win x-dnd
tool-bar dnd fontset image regexp-opt fringe tabulated-list replace
newcomment text-mode lisp-mode prog-mode register page tab-bar menu-bar
rfn-eshadow isearch easymenu timer select scroll-bar mouse jit-lock
font-lock syntax font-core term/tty-colors frame minibuffer cl-generic
cham georgian utf-8-lang misc-lang vietnamese tibetan thai tai-viet lao
korean japanese eucjp-ms cp51932 hebrew greek romanian slovak czech
european ethiopic indian cyrillic chinese composite emoji-zwj charscript
charprop case-table epa-hook jka-cmpr-hook help simple abbrev obarray
cl-preloaded nadvice button loaddefs faces cus-face macroexp files
window text-properties overlay sha1 md5 base64 format env code-pages
mule custom widget hashtable-print-readable backquote threads dbusbind
inotify lcms2 dynamic-setting system-font-setting font-render-setting
cairo move-toolbar gtk x-toolkit x multi-tty make-network-process emacs)

Memory information:
((conses 16 1834936 577090)
 (symbols 48 302459 5)
 (strings 32 544700 6387)
 (string-bytes 1 16056432)
 (vectors 16 150193)
 (vector-slots 8 3169707 1208004)
 (floats 8 1374 5309)
 (intervals 56 6946 8958)
 (buffers 992 58))

bug#58974: 28.2; saving a message in multiple groups

[Robert Pluim]

>>>>> On Wed, 02 Nov 2022 16:48:45 -0700, Waleed Yousef <wyousef@fcih.net> said:

    Waleed> I am trying to save the sent message to two groups: nnml:mail.misc and
    Waleed> the group in which the message is sent from:

    Waleed> (setq gnus-message-archive-group '(gnus-news-group-name "nnml:mail.misc"))

    Waleed> It never works.

`gnus-message-archive-group' doesnʼt quite work like that, you have to
build the result yourself. Try

(setq gnus-message-archive-group '((list gnus-newsgroup-name
                                           "nnml:mail.misc")))

(and itʼs `gnus-newsgroup-name', not `gnus-news-group-name')

Robert
-- 

bug#58974: 28.2; saving a message in multiple groups

[Waleed Yousef]

1. Thanks so much. BTW, gnus-news-group-name is just an automatic
hyphenation done by gnus message buffer to split the line. I indeed use
gnus-newsgroup-name

Now, one more question please.

How I save to a default group if no group
is visited. I use this code but it does not work:

(setq gnus-message-archive-group '((if gnus-newsgroup-name gnus-newsgroup-name "nnml:ADS")))


Thanks in advance.
Robert Pluim <rpluim@gmail.com> writes:

>>>>>> On Wed, 02 Nov 2022 16:48:45 -0700, Waleed Yousef <wyousef@fcih.net> said:
>
>     Waleed> I am trying to save the sent message to two groups: nnml:mail.misc and
>     Waleed> the group in which the message is sent from:
>
>     Waleed> (setq gnus-message-archive-group '(gnus-news-group-name "nnml:mail.misc"))
>
>     Waleed> It never works.
>
> `gnus-message-archive-group' doesnʼt quite work like that, you have to
> build the result yourself. Try
>
> (setq gnus-message-archive-group '((list gnus-newsgroup-name
>                                            "nnml:mail.misc")))
>
> (and itʼs `gnus-newsgroup-name', not `gnus-news-group-name')
>
> Robert

bug#58974: 28.2; saving a message in multiple groups

[Robert Pluim]

>>>>> On Thu, 03 Nov 2022 08:52:43 -0700, Waleed Yousef <wyousef@fcih.net> said:

    Waleed> 1. Thanks so much. BTW, gnus-news-group-name is just an automatic
    Waleed> hyphenation done by gnus message buffer to split the line. I indeed use
    Waleed> gnus-newsgroup-name

    Waleed> Now, one more question please.

    Waleed> How I save to a default group if no group
    Waleed> is visited. I use this code but it does not work:

    Waleed> (setq gnus-message-archive-group '((if gnus-newsgroup-name gnus-newsgroup-name "nnml:ADS")))

That should work, unless `gnus-newsgroup-name' doesnʼt exist as a
variable, in which case youʼd need to check if itʼs `boundp'
first. You can try edebugging through `gnus-inews-insert-gcc' to see
why itʼs going wrong.

Robert
-- 

bug#58974: 28.2; saving a message in multiple groups

[Waleed Yousef]

From the group buffer, and without entering any group, the variable
value of gnus-newsgroup-name is nil, which I already check in the if condition. However, if I create a
message the header is: Gcc: nnfolder+archive:


Robert Pluim <rpluim@gmail.com> writes:


>>>>>> On Thu, 03 Nov 2022 08:52:43 -0700, Waleed Yousef <wyousef@fcih.net> said:
>
>     Waleed> 1. Thanks so much. BTW, gnus-news-group-name is just an automatic
>     Waleed> hyphenation done by gnus message buffer to split the line. I indeed use
>     Waleed> gnus-newsgroup-name
>
>     Waleed> Now, one more question please.
>
>     Waleed> How I save to a default group if no group
>     Waleed> is visited. I use this code but it does not work:
>
>     Waleed> (setq gnus-message-archive-group '((if gnus-newsgroup-name gnus-newsgroup-name "nnml:ADS")))
>
> That should work, unless `gnus-newsgroup-name' doesnʼt exist as a
> variable, in which case youʼd need to check if itʼs `boundp'
> first. You can try edebugging through `gnus-inews-insert-gcc' to see
> why itʼs going wrong.
>
> Robert

bug#58974: 28.2; saving a message in multiple groups

[Robert Pluim]

>>>>> On Thu, 03 Nov 2022 10:07:45 -0700, Waleed Yousef <wyousef@fcih.net> said:

    Waleed> From the group buffer, and without entering any group, the variable
    Waleed> value of gnus-newsgroup-name is nil, which I already check in the if condition. However, if I create a
    Waleed> message the header is: Gcc: nnfolder+archive:

Youʼre right, itʼs nil in the *Group* buffer, but then itʼs bound to
"" by `gnus-msg-mail', which has been there for ages, so itʼs not
something Iʼd change lightly. How about this:

(setq gnus-message-archive-group
  '((if (not (string-empty-p gnus-newsgroup-name))
        gnus-newsgroup-name
       "nnml:ADS")))

Robert
-- 

bug#58974: 28.2; saving a message in multiple groups

[Waleed Yousef]

Thanks so much; that is great. I elaborated and coded this:


(setq gnus-message-archive-group
      '((if (not (string-empty-p gnus-newsgroup-name))
            (list gnus-newsgroup-name "nnml:MySent")
          (list "nnml:MySent")
          )))


Please, feel free to close the ticket.

--Waleed


Robert Pluim <rpluim@gmail.com> writes:

>>>>>> On Thu, 03 Nov 2022 10:07:45 -0700, Waleed Yousef <wyousef@fcih.net> said:
>
>     Waleed> From the group buffer, and without entering any group, the variable
>     Waleed> value of gnus-newsgroup-name is nil, which I already check in the if condition. However, if I create a
>     Waleed> message the header is: Gcc: nnfolder+archive:
>
> Youʼre right, itʼs nil in the *Group* buffer, but then itʼs bound to
> "" by `gnus-msg-mail', which has been there for ages, so itʼs not
> something Iʼd change lightly. How about this:
>
> (setq gnus-message-archive-group
>   '((if (not (string-empty-p gnus-newsgroup-name))
>         gnus-newsgroup-name
>        "nnml:ADS")))
>
> Robert

bug#58974: 28.2; saving a message in multiple groups

[Robert Pluim]

tags 58974 notabug
close 58974 29.1
quit

>>>>> On Thu, 03 Nov 2022 11:23:00 -0700, Waleed Yousef <wyousef@fcih.net> said:

    Waleed> Thanks so much; that is great. I elaborated and coded this:


    Waleed> (setq gnus-message-archive-group
    Waleed>       '((if (not (string-empty-p gnus-newsgroup-name))
    Waleed>             (list gnus-newsgroup-name "nnml:MySent")
    Waleed>           (list "nnml:MySent")
    Waleed>           )))


    Waleed> Please, feel free to close the ticket.

Done with this message

Thanks

Robert

--