>>749
cl-loop 使うとか

(require 'cl)

(setq msg "1 ほげ 2 ふが 3 ほげほげ 4 ふがふが")
(loop for (x y) on (split-string msg " " t) by #'cddr collect (concat x " " y))