[Emacs-diffs] trunk r113530: * lisp/ffap.el (ffap-machine-p): Handle "not known" response.

[Glenn Morris]

------------------------------------------------------------
revno: 113530
revision-id: address@hidden
parent: address@hidden
fixes bug: http://debbugs.gnu.org/14929
committer: Glenn Morris <address@hidden>
branch nick: trunk
timestamp: Wed 2013-07-24 08:56:24 -0700
message:
  * lisp/ffap.el (ffap-machine-p): Handle "not known" response.
modified:
  lisp/ChangeLog                 changelog-20091113204419-o5vbwnq5f7feedwu-1432
  lisp/ffap.el                   ffap.el-20091113204419-o5vbwnq5f7feedwu-953

=== modified file 'lisp/ChangeLog'
--- a/lisp/ChangeLog    2013-07-24 13:29:15 +0000
+++ b/lisp/ChangeLog    2013-07-24 15:56:24 +0000
@@ -1,3 +1,7 @@
+2013-07-24  Glenn Morris  <address@hidden>
+
+       * ffap.el (ffap-machine-p): Handle "not known" response.  (Bug#14929)
+
 2013-07-24  Michael Albinus  <address@hidden>
 
        * filenotify.el (file-notify-supported-p):

=== modified file 'lisp/ffap.el'
--- a/lisp/ffap.el      2013-02-04 12:02:25 +0000
+++ b/lisp/ffap.el      2013-07-24 15:56:24 +0000
@@ -459,7 +459,8 @@
           (let ((mesg (car (cdr error))))
             (cond
              ;; v18:
-             ((string-match "^Unknown host" mesg) nil)
+             ((string-match "\\(^Unknown host\\|Name or service not known$\\)"
+                            mesg) nil)
              ((string-match "not responding$" mesg) mesg)
              ;; v19:
              ;; (file-error "connection failed" "permission denied"