Fix ffap behavior in the Gnus group buffer (bug#35693)

* lisp/ffap.el (ffap-file-exists-string, ffap-file-at-point):
Don't recognize "" as a path or a file name (bug#35693).

diff --git a/lisp/ffap.el b/lisp/ffap.el
index bcb5efef5440a0e0f5865022e5c4c9d9cb7a2622..08f7208945008d6ef298ab639c98d16a1b1e3788 100644 (file)
--- a/lisp/ffap.el
+++ b/lisp/ffap.el
@@ -513,7 +513,9 @@ When using jka-compr (a.k.a. `auto-compression-mode'), the returned
 name may have a suffix added from `ffap-compression-suffixes'.
 The optional NOMODIFY argument suppresses the extra search."
   (cond
-   ((not file) nil)                    ; quietly reject nil
+   ((or (not file)                     ; quietly reject nil
+       (zerop (length file)))          ; and also ""
+    nil)
    ((file-exists-p file) file)         ; try unmodified first
    ;; three reasons to suppress search:
    (nomodify nil)
@@ -1326,6 +1328,7 @@ which may actually result in an URL rather than a filename."
         ;; If it contains a colon, get rid of it (and return if exists)
         ((and (string-match path-separator name)
               (setq name (ffap-string-at-point 'nocolon))
+              (> (length name) 0)
               (ffap-file-exists-string name)))
         ;; File does not exist, try the alist:
         ((let ((alist ffap-alist) tem try case-fold-search)