procyberian/emacs
1
0
Fork 0
Code Issues Pull requests Projects Releases Packages Wiki Activity Actions

Allow matching against string values in erc-dcc-member

Browse source 
* lisp/erc/erc-dcc.el (erc-dcc-member): Be more tolerant in the
catch-all case by testing for equality instead of identity.
(erc-dcc-do-GET-command): Pass file name when querying
`erc-dcc-member'. (Bug#54458)
This commit is contained in:
F. Jason Park 2022-04-09 23:32:22 -07:00
parent 37e26fc537
commit 758775f158
1 changed files with 2 additions and 2 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

4
lisp/erc/erc-dcc.el
View file

@ -196,7 +196,7 @@ compared with `erc-nick-equal-p' which is IRC case-insensitive."
(erc-extract-nick test)
(erc-extract-nick val)))
;; not a nick
(eq test val)
(equal test val)
(setq cont nil))))
(if cont
(setq result elt)
@ -507,7 +507,7 @@ FILE is the filename. If FILE is split into multiple arguments,
re-join the arguments, separated by a space.
PROC is the server process."
(setq file (and file (mapconcat #'identity file " ")))
(let* ((elt (erc-dcc-member :nick nick :type 'GET))
(let* ((elt (erc-dcc-member :nick nick :type 'GET :file file))
(filename (or file (plist-get elt :file) "unknown")))
(if elt
(let* ((file (read-file-name