import Control.Monad
  
check mass  i j (x,y)
 | mass !! x !! y == '.' = True
 | otherwise =   or$map (\(a,b) -> (mass !! a !! b)=='#')     $ filter (\(a,b) -> (0<=a&&a<i&&0<=b&&b<j)) $ map (\(a,b) -> (x+a,y+b)) pm
  where
   pm = [(0,1),(0,-1),(1,0),(1,-1),(-1,1),(-1,0)]
main = do
 [i,j] <-map read . words <$> getLine
 mass <- replicateM i getLine
 putStrLn  (if (and $ map (check mass i j) [(a,b)|a<-[0..i-1],b<-[0..j-1]]) then "Yes" else "No")