bug#14929: 24.3.50; ido-use-filename-at-point does not work with Flyspell

[Xue Fuqiao]

To reproduce:

emacs -Q
C-x C-f bug.txt ⏎ ;; visit this file
M-x flyspell-mode ⏎ ;; enable Flyspell
M-x ido-mode ⏎ ;; enable Ido
M-: (setq ido-use-filename-at-point 'guess) ⏎ ;; let Ido guess file name
C-x C-f

Then Emacs signals an error, here's the backtrace:

Debugger entered--Lisp error: (error "thisisnotaword.org/discard
nodename nor servname provided, or not known")
  signal(error ("thisisnotaword.org/discard nodename nor servname
provided, or not known"))
  byte-code("A@\302\303    \"\203\304\2025\302\305    \"\203
\2025    \306\232\203/\3078\310\232?\2055\3078\2025\311@A\")\207"
[error mesg string-match "^Unknown host" nil "not responding$"
"connection failed" 2 "permission denied" signal] 3)
  ffap-machine-p("thisisnotaword.org")
  ffap-machine-at-point()
  ffap-guesser()
  ido-file-internal(raise-frame)
  ido-find-file()
  call-interactively(ido-find-file nil nil)
  command-execute(ido-find-file)

I'm using International Ispell Version 3.1.20 (but really Aspell
0.60.6.1) on OS X 10.8.4.

In GNU Emacs 24.3.50.1 (x86_64-apple-darwin12.4.0, NS apple-appkit-1187.39)
 of 2013-07-20 on xfq.local
Bzr revision: 113467 eggert@cs.ucla.edu-20130719180923-liyqparqc53yuwki
Windowing system distributor `Apple', version 10.3.1187
Configured using:
 `configure --with-ns --enable-checking'

Important settings:
  value of $LANG: en_US.UTF-8
  locale-coding-system: utf-8-unix
  default enable-multibyte-characters: t

Major mode: Lisp Interaction

Minor modes in effect:
  tooltip-mode: t
  mouse-wheel-mode: t
  tool-bar-mode: t
  menu-bar-mode: t
  file-name-shadow-mode: t
  global-font-lock-mode: t
  font-lock-mode: t
  blink-cursor-mode: t
  auto-composition-mode: t
  auto-encryption-mode: t
  auto-compression-mode: t
  line-number-mode: t
  transient-mark-mode: t

Recent input:
<escape> x x <backspace> r e - e m - b u <tab> <re
turn>

Recent messages:
For information about GNU Emacs and the GNU system, type C-h C-a.

Load-path shadows:
None found.

Features:
(shadow sort nadvice gnus-util mail-extr emacsbug message format-spec
rfc822 mml easymenu mml-sec mm-decode mm-bodies mm-encode mail-parse
rfc2231 mailabbrev gmm-utils mailheader sendmail rfc2047 rfc2045
ietf-drums mm-util mail-prsvr mail-utils time-date tooltip ediff-hook
vc-hooks lisp-float-type mwheel ns-win tool-bar dnd fontset image
regexp-opt fringe tabulated-list newcomment lisp-mode prog-mode register
page menu-bar rfn-eshadow timer select scroll-bar mouse jit-lock
font-lock syntax facemenu font-core frame cham georgian utf-8-lang
misc-lang vietnamese tibetan thai tai-viet lao korean japanese hebrew
greek romanian slovak czech european ethiopic indian cyrillic chinese
case-table epa-hook jka-cmpr-hook help simple abbrev minibuffer loaddefs
button faces cus-face macroexp files text-properties overlay sha1 md5
base64 format env code-pages mule custom widget hashtable-print-readable
backquote make-network-process ns multi-tty emacs)


--
Best regards, Xue Fuqiao.
http://www.gnu.org/software/emacs/

bug.txt
Description: Text document